Help for this page

Select Code to Download

Select or download this


my $x = '~/tmp/*';
...
@list = readdir(X);
closedir(X);
print join '-', @list;