Select Code to Download

use Cwd qw(abs_path);

my $script_path = abs_path((caller())[1]);

print "$script_path\n";

package Package;

...
}

1;

use warnings;
use strict;
...
use lib '.';

use Package;