Select Code to Download

Sun 09 30 06 42 36 2007
Tue 10 02 06 01 55 2007

my @array;
while (<>) {
    chomp;
...
}

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