Help for this page
#!/usr/bin/perl use strict; ... next if exists $subused{ $sub }; print "$subdef{ $sub } $sub\n"; }
__END__ $_=q,just perl,,s, , another ,,s,$, hacker,,print;