Select Code to Download

use My::Module;
My::Module::print_file_name();

package My::Module;
use feature qw(say);
...
    say __FILE__;
}
1;

if ( !File::Spec->file_name_is_absolute( $filename ) ) {
   $filename = File::Spec->rel2abs( $filename, $FindBin::Bin );
}

package Cwd::Initial;
use strict;
...

1;