What does this say:

perl -e 'print "$ENV{PWD}\n"'
[download]

or try using Cwd with some of its various options for getting current working directory.