12 lines
220 B
Perl
12 lines
220 B
Perl
|
#!/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;
|