use Cwd;
print "Current dir is ", getcwd, "\n";

(my $dir) = $0 =~ m|(.*?)[^\\/]+$|;
print "Current dir is ", $dir, "\n";
[download]

These both return the correct result but the format is a little different.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print