#!/usr/bin/perl -w
use strict;
use CGI;
my $indir = <STDIN>;
chomp $indir;
my $dir = 'c:/temp';

print "Opening $dir\n";
opendir (DIR, $dir) || die "Could not open dir: $!";
my @array=readdir (DIR);
closedir (DIR);
print "$_\n" foreach @array;

print "Opening $indir\n";
opendir (INDIR, $indir) || die "Could not open dir: $!";
my @inarray=readdir (INDIR);
closedir (INDIR);
print "$_\n" foreach @inarray;

##</code><code>##

if ($needs_binmode) {
    $CGI::DefaultClass->binmode(main::STDOUT);
    $CGI::DefaultClass->binmode(main::STDIN);
    $CGI::DefaultClass->binmode(main::STDERR);
}