You can do the following to get the current working directory:

use Cwd; # a core module ;-)
my $cwd = getcwd;
[download]

Then you can use paths relative to $cwd, or rewrite the paths depending on whether you're on C:\ or on D:\.