Select Code to Download

echo 'BrowserUK 1024' > bench.txt
Measure-Command { .\buk.bat } >> bench.txt
...
Measure-Command { perl kc.pl test.csv > kcout.csv} >> bench.txt
echo 'mildside -- wrong order but testing anyway' >> bench.txt
Measure-Command { .\cut '-f1,3,6' test.csv > cutout.csv} >> bench.txt

BrowserUK 1024
Minutes           : 1
...
Seconds           : 19
Milliseconds      : 295
Ticks             : 13392954883

#! perl -sw
use strict;
...
    }
    splice( @$aref );
}

#! perl -sw
use strict;
...
while( <> ) {
    print join( "\t", ( split /\t/, $_, 7 )[ 0, 2, 5 ]), "\n";
}