Alias "/Meine Bilder/" C:/Eigene_Bilder/
<Directory C:/Eigene_Bilder>
	Options MultiViews Indexes SymLinksIfOwnerMatch IncludesNoExec
	Allow from all
</Directory>

#!perl

$| = 1;

use strict;
use warnings;

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param);
use File::Find;

my $modul_cgi = new CGI (-no_xhtml);
my @erg;
my $i = 1;
my $pfad = q{C:/Eigene_Bilder/};
my $server_alias = q{/Meine Bilder/};
find(\&wanted,$pfad);

sub wanted {
        my $u = $File::Find::name;
        if ($u=~/\.jpg$/i) {
                $u =~ s/$pfad/$server_alias/;
                push @erg,$u; 
        }
}
print $modul_cgi->header(),
        $modul_cgi->start_html('Test'),
        $modul_cgi->img({-src=>"$erg[0]"}),
        $modul_cgi->end_html()