#!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 $modul_cgi = new CGI;
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 $modul_cgi->header(),
		$modul_cgi->start_html("Test"),
		$modul_cgi->img({-src=>$erg[0]});
		$modul_cgi->end_html();