You might have to use 'gmtime' for it to work.
Try this too (tested):
--------------------------
use Date::Tie;
tie %date, 'Date::Tie';
%date = ( year => 2001, month => 8, day => 1, hour => 0, minute => 0,
second => 0 );
print $date{epoch}, "\n";
$date{month}++;
print $date{epoch}, "\n";
$date{month}++;
print $date{epoch}, "\n";
$date{month}++;
---------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
