use vars qw($Bin); BEGIN { $Bin = qx(pwd) } chdir $Bin . $ARGV[0]; [download]
In reply to Re^2: working with relative paths by chanio in thread working with relative paths by apotheon