#!/usr/bin/perl -w if ($ARGV[0]) { $dir = $ARGV[0]; } else { $dir = `pwd`; } @files = `ls $dir`; open(HTML,'>files.html'); print HTML < File List

HEADER foreach (@files) { chomp; print HTML ''.$_.'
'."\n"; } print HTML < FOOTER close(HTML); 1;