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";