my $url = $ENV{'REQUEST_URI'};
print "$url";
[download]

Update: Oops.. I'm sorry, I was thinking in terms of Linux. Maybe Win32::Env could help.