#Aufruf der Subroutine. find(\&wanted,$pfad); print "test"; #Aufbauen der FTP-Verbindung my $ftp = Net::FTP->new("$ftphost",