Select Code to Download

#!/usr/local/bin/perl -wl
use strict;
...
}

map {print if $sieve [$_];} (0 .. $max);

#!/your/perl/here
use strict;
...
}
print "\n";
exit;