#!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\">"; #mit escapten anführungszeichen!!