Select Code to Download

    use Cwd;
    print "Content-type: text/plain\n\n";
    print getcwd(), "\n\n";
    opendir(DIR, ".") or die ".: $!";
    print join("\n", readdir(DIR)), "\n";
    closedir(DIR);