Shell Programming and Scripting

$ cat time.pl
#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;

my $tstr = "20100430070935";

my @tval = ( $tstr =~ /(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/ );

my $time =
  timelocal( $tval[5], $tval[4], $tval[3], $tval[2], $tval[1] - 1, $tval[0] );
print "Seconds: ", ( time() - $time ), "\n";
$ LANG=C date; perl time.pl
Thu Jun 10 14:07:46 CEST 2010
Seconds: 3567491

Can't locate warnings.pm in @INC (@INC contains: /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at time.pl line 4.
BEGIN failed--compilation aborted at time.pl line 4.

use warnings;

#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;

# Input time
my $tstr = "20100430070935";

# Run a regexp match on the input, and save the matches (capturing groups)
# into an array, instead of $1, $2, ...
my @tval = ( $tstr =~ /(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/ );

# timelocal (from Time::Local) takes the array and returns the seconds since
# the epoch (usually 01.01.1970 00:00:00 GMT) corresponding to the date.
# For more details see perldoc Time::Local
my $time =
  timelocal( $tval[5], $tval[4], $tval[3], $tval[2], $tval[1] - 1, $tval[0] );

# Take the current seconds since the epoch, and substract the seconds for the
# given date -> seconds elapsed since
# See perldoc -f time
print "Seconds: ", ( time() - $time ), "\n";