Directory of c:\temp

#!c:\perl
print "Content-type:text/html\n\n";

print <<WEB_PAGE;
	<html>
	<title>Perl Script Directory</title>
	<h1>Directory of c:\temp</h1>
WEB_PAGE

$dir = "C:\\temp";
unless (opendir(DIR, $dir)) {
    &print_msg("\tCan't open $dir\n");
    closedir(DIR);
    exit(0);
}

foreach (readdir(DIR)) {
    # don't include current dir or parent
	next if $_ eq '.' || $_ eq '..';
    $path = "$dir/$_";
    if (-d $path) {
	next;
        #&traverse($path);
    	# check to see if file
        } elsif (-f _) {
        #if (!copy($path,"\\\\$Machine\\$Share{netname}\\temp\\")) {
        #    &print_msg("FAILED ($path) " . Win32::Lanman::GetLastError() . "\n");
        #} else {
        #    &print_msg(".");
        #}
	#print "<P $path>\n";
	print $path;
	
    }
}
sleep (10);
print "</html>\n";