#!/usr/bin/perl `echo "">all.html`; @files = <*>; foreach $file (@files) { `echo "

">>all.html`; } `echo "">>all.html`;