#!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 $pfad = "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder";
find(\&wanted,$pfad);
sub wanted {
	push @erg,$File::Find::name if $File::Find::name=~/\.jpg$/i;
}	
print "Hallo";