Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
opendir(LOGS, "/perl/ass/") or die "Couldn't open /perl/ass/, $!";
my @logfiles = readdir(LOGS);
print "File: $_\n" for @logfiles;