#!/usr/bin/perl use warnings; use strict; print< EOH my $dir = shift || '.'; opendir my $dh, $dir or die "Error: $!"; my @files = grep !/^\.\.?$/, readdir $dh; closedir $dh; print "

$f \n"; print "
- $f/$s \n"; } print "
\n"; } else { print "
$f \n"; } } print "

\n";