Select Code to Download

my (%agency,(%url,(%module,(%type,$type_count))));
my $pass_count=0;
...
        if ($pf eq "new_") {
                     $agency{$e4,{$e7,{$e6,$new_count++}}};

package Agency;

...
} # foreach

$new_agency->display();