I presume this relates to your upload question so rather than telling you to RTFM about things like Cwd or glob will just give you the code so you can find out where you are on the server and thus the required file path.

#!/usr/bin/perl
use Cwd;
$dir = cwd();
print "Content-Type: text/plain\n\n";
print "$_\n" for glob("$dir/*");
[download]