"UP"? do you mean universal path (i.e. absolute path)? if so, then yes, just convert the directory that $0 is in to a absolute path first:

use File::Basename;
use Cwd 'abs_path';
my $curr_dir = dirname(abs_path dirname($0)) . '/';
[download]