Select Code to Download

use warnings; 
use strict;
...
print otherfunc sub { $alternate->(@_) }, 2,3,5,7,11;

print "END\n";