Select Code to Download

use strict;
use warnings;
...
    }
    $start += int rand 50;
}

use strict;
use warnings;
...
    my ($date) = $line =~ m{^(\S+)};
    return $date;
}

$ ls -l spw586856*    
-rwxr-xr-x   1 jgillman og5a        1895 Dec  1 11:11 spw586856
...
user    0m4.86s
sys     0m0.34s
$