Select Code to Download

opendir (DIR,dirname);
@dir = grep{!/^\.+/} readdir(DIR);
closedir(DIR);
print join("\n",@dir);

opendir( DIR, $directory ) or die "open dir error";
my $number = 0;
...
    push @names, $name;
}