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