# Load the current working directory module
use Cwd;

# set $dir to the current directory
my $dir = cwd;

# print out the pathname
print "My file is: $dir/$value\n";