Select Code to Download

#!/usr/bin/perl
use strict;
...
    next if exists $subused{ $sub };
    print "$subdef{ $sub } $sub\n";
}

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;