Select Code to Download

package netFetObj;
sub fetSort {
...
    my $ftB = $b->{"fet"};
    $fetType->{$ftA} <=> $fetType->{$ftB}
}

package something_else;
    foreach my $fetOBJ ( sort { &netFetObj::fetSort } @{ $OBJ->{"fets"
+} } ) {
        buildFet($FH,$fetOBJ,$OPT);
    }