#!/usr/bin/perl

use CGI;

my $cgi = new CGI();

print $cgi->header();

my @files = <*.jpg>;

foreach my $file (@files)
{
	print qq{<img src="$file" /><br><br>};
}

