Select Code to Download

my @what = qw( bothChaff bothDegen oneChaff oneDegen );

open my $fh, ">", "data.data" or die;
...
                      $_, $_+3333, $what[rand@what]);
    last if -s $fh > 1_000 * 1_000 * 1_000;
}

use DB_File;
use strict;
use Time::HiRes qw[ time ];
...
moo@cow[331]~/bin>pm-768941 1101078637800
1101078641133   oneChaff
Took 0.02 seconds