Select Code to Download

    opendir MYDIR, ("c:/documents\ and\ settings/username/desktop/perf
+_analyzer");
    print "Path:\n$path\n";
...
    print "File: ", $file, "\n";

}

$path = `cd`; # I am in c:/documents\ and\ settings/username/desktop/p
+erf_analyzer
    $path=~s/\\/\//g;
...
    print "File: ", $file, "\n";

}