Select Code to Download

!#/usr/bin/perl

...
        warn "unable to open $infile: $!\n";
    }
}

package TestParsers;

...

    return $subhash{$_[0]}
}