#!/usr/bin/perl

print "Content-Type: text/html\n\n";
foreach my $jpg (
    'design1de_facade.jpg',
    'design1de_facade2.jpg',
    'design2de_facade1.jpg',
    'design2de_facade2.jpg',
    'design3de_facade1.jpg',
    'design3de_facade2.jpg',
    'design4de_facade1.jpg',
    'design4de_facade2.jpg',
    'design1jd_scene1.jpg',
    'design1jd_scene2.jpg',
    'design1de_scene1.jpg',
    'design1de_scene2.jpg',
    'design1de_scene3.jpg',
    'design2de_scene1.jpg',
    'design2de_scene2.jpg',
    'design2de_scene3.jpg',
    'design2,3de_scene1.jpg',
    'design2,3de_scene2.jpg',
    'design2,3de_scene3.jpg',
    'design4de_scene1.jpg',
    'design4de_scene2.jpg',
    'design4de_scene3.jpg',
    'design4de_scene4.jpg',
    ) {
    print "<a href=\"$jpg\"><img border=\"0\" width=\"120\" src=\"$jpg\"></a>";
    unless(++$x % 6) {
	print "<br>\n";
    }

}