my $dir="./demo/pattern";
opendir(DIR,$dir) or die "can't open dir";
@dir = readdir DIR;
foreach $file_name (@dir)
{
print $file_name;
}
my $dir="./demo/pattern";
opendir(DIR,$dir) or die "can't open dir";
@dir = readdir DIR;
foreach $file_name (@dir)
{
print $file_name;
}