Sun 09 30 06 42 36 2007
Tue 10 02 06 01 55 2007
##</code><code>##

my @array;
while (<>) {
    chomp;
    my @fields = split;
    shift @fields;
    unshift(@fields, pop(@fields));
    $fields[1]--; # decrement the month, timelocal is zero-based
    push (@array, timelocal (reverse @fields));
}

print $array[1] - $array[0];