Re: Time since midnight

[Flavio Soibelmann Glock]

> Can I do this using Date::Manip
Yes, I guess :)
>is there any other way

use Date::Tie;

tie %time, 'Date::Tie';

$time{epoch} = 36000;
print "$time{hour}:$time{minute}:$time{second}\n";

$time{epoch}++;
print "$time{hour}:$time{minute}:$time{second}\n";

$time{epoch}++;
print "$time{hour}:$time{minute}:$time{second}\n";

1;

- Flávio Soibelmann Glock

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]