#!/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);