Help for this page

Select Code to Download

Select or download this

sub filename_of {
    my ( $package ) = @_;
...

    return $INC{$package};
}