Select Code to Download

my $dir = "start";
foreach my $file (@files) {
...
        print $_;
    }
}

use Cwd;
my $thisdir = getcwd;
print "Content-type: text/html\n\n";
print "Current directory = $thisdir\n";