local $/ = \1024;
    my $begin = <F>;
    my ($date) = $begin =~ m%\w+, (\w+ \d\d, \d\d\d\d)%;
    my $time = str2time($date);