Select Code to Download

$time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
print "Date = ", POSIX::ctime($time_t);

use strict;
use warnings;
...
my $time2 = mktime( 0, 0, $4, $3, $2 - 1, $1 + 100 ) if $current =~ m/
+(\d\d)(\d\d)(\d\d)(\d\d)/;

printf("%s - %s = %d seconds\n", ctime($time2), ctime($time1), difftim
+e($time2, $time1));