use Cwd qw(abs_path);

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

print "$script_path\n";

##</code><code>##

package Package;

use strict;
use warnings;

use Cwd qw(abs_path);

sub import {
    my $path = abs_path((caller())[1]);
    print "$path\n";
}

1;

##</code><code>##

use warnings;
use strict;

use lib '.';

use Package;