#!c:\perl\bin\perl.exe
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);
use File::Find;
print "Content-type: text/html\n\n";
my @erg;
my $i = 1;
my $pfad = "C:/Eigene_Bilder";
find(\&wanted,$pfad);

sub wanted {
	push @erg,$File::Find::name if $File::Find::name=~/\.jpg$/i;
}

print "<img src=@erg[$i] alt=Banner border=1>";