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);