Select Code to Download

$array = $array[ rand @array ];
$array2 = $array2[ rand @array2 ];

#!/usr/bin/perl
#use strict;
...
EOM
   exit;
}