[root@posiedon3 johnday]# perl timepiece.pl
Local time:  Fri Mar  5 20:44:17 2004
Future time: Fri Mar  5 21:44:17 2004
Difference:  1hours 
$VAR1 = bless( [
                 17,
                 44,
                 20,
                 5,
                 2,
                 104,
                 5,
                 64,
                 0,
                 1078537457,
                 1
               ], 'Time::Piece' );
$VAR2 = bless( [
                 17,
                 44,
                 21,
                 5,
                 2,
                 104,
                 5,
                 64,
                 0,
                 1078541057,
                 1
               ], 'Time::Piece' );
$VAR3 = bless( do{\(my $o = 3600)}, 'Time::Seconds' );
$VAR1 = bless( [
                 0,
                 30,
                 20,
                 5,
                 2,
                 104,
                 5,
                 64,
                 0,
                 undef,
                 0,
                 0
               ], 'Time::Piece' );
Test time: Fri Mar  5 20:30:00 2004
-314.283333333333 minutes
$VAR1 = bless( [
                 0,
                 30,
                 20,
                 5,
                 2,
                 104,
                 5,
                 64,
                 0,
                 undef,
                 0,
                 0
               ], 'Time::Piece' );
Test time: Fri Mar  5 20:30:00 2004
-314.283333333333 minutes