Help for this page
!#/usr/bin/perl ... warn "unable to open $infile: $!\n"; } }
package TestParsers; ... return $subhash{$_[0]} }