I don't have much experience with pp, so the following may be of no help because of peculiarities of pp.

The module FindBin may be of assistance. It's purpose is to locate the directory of the original perl script.

use FindBin;
my $script_dir = $FindBin::Bin;

or

use FindBind qw($Bin);
my $script_dir =  $Bin
[download]

lbe