It was recomended that I post this here

This is the entire prog so far. It works without the use CGI, but once it is included the following error is produced:

No such file or directory at perl1.pl line 22. <STDIN> line 1.

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);
[download]

It doesn't have anything to do with CGI yet, but it will. any help would be appreciated