Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
use CGI;
...
my @inarray=readdir (INDIR);
closedir (INDIR);
print "$_\n" foreach @inarray;

Select or download this

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