Of course, you can always use an environment variable to construct the path, if that's what you need:

use strict;
use warnings;

(my $file = shift) or die "No file specified.\n";

my $dir  = $ENV{'USER_PATH'} || ".";   # Use current directory if USER
+_PATH not set
my $path = "$dir/$file";               # Construct full pathname
[download]