Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
else {
    print "<p>User '$dir' has no files.</p>\n";
}

Select or download this

$ ls -lR
.:
...

$ ./web_dir_listing.pl
Usage: ./web_dir_listing.pl dir