http://blog.sina.com.cn/s/blog_7c60861501013cwo.html
#!/usr/bin/perl -w
use strict;
use warnings;
print "Hello, World...\n";
print " input a String ";
#$a =<>;
#print $a;
my $dirname = "C:\Perl";
opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ( my $filename = readdir(DIR))){
print("$filename\n");
}
closedir(DIR);