I think what you are looking for is the following:

use Cwd qw/getcwd/;
# Current working directory
my $cwd = getcwd();
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.