Given that you are running the script under Windows you can:

use Win32;

my $path = Win32::GetCwd();
[download]

which gives the current directory when the script is executed. That may not be the same as the directory containing the script of course.