opendir MYDIR, ("c:/documents\ and\ settings/username/desktop/perf_analyzer"); print "Path:\n$path\n"; while ( $file = readdir(MYDIR)) { print "File: ", $file, "\n"; }