Select Code to Download

#! perl -slw
use strict;
...
printf "best(%d): @best\n", scalar @best;
printf "Took %.3f seconds\n", time() - $start;