This is the entire prog so far. It doesn't have anything to do with CGI yet.. But even with the change I am still getting the same error.

use CGI qw(:standard);
#use Win32::ODBC;
use strict;
use win32;

my ($directory);
my ($name);

print "enter in directory \n";
chomp ($directory = <STDIN>);
print "directory is $directory\n";

#Open the directory to list what's inside 
opendir(DIR, "c:/$directory") || die "Cannot open $directory $!";
foreach $name (sort readdir(DIR)) { #Prints names sorted 
     print "$name\n"; 
} 

closedir(DIR);

print "$directory is the directory";
[download]

again, thanks for any help.

L