use File::Basename qw(dirname);
my $script_dir = dirname($0);
my $path = "$script_dir/Pandoras Box/$file.txt";
...