Select Code to Download

#!/usr/bin/perl - w
# checkmodule.pl
...
#@results2 = grep( ($hash{$_} == 1), keys %hash );
#print join "\n", @results2;
#print "\n";