Select Code to Download

use strict;
use warnings;
...
{
        return "nametype";
}

use strict;
use warnings;
...
{
        print "$_\t $hash{$_}\n";
}