#!/usr/bin/env perl # usage: ls -1 *jpg | jpgpage.pl > index.html print qq(<html><head><title>photo</title></head><body>\n); while (<>) { chomp; print qq(<a href="$_"><img width="194" height="128" src="$_"></a>\n); } print qq(</body></html>\n);