You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
print "contents of the new directory:\n";
|
|
opendir DH, '.' or die "opendir failed: $!";
|
|
my $filename;
|
|
while ($filename = readdir(DH)) {
|
|
print " $filename\n";
|
|
}
|
|
close DH;
|