You can use the Cwd module, like this:

use Cwd;
my $dir = cwd;
[download]

-- Mike

--
just,my${.02}