use Net::FTP;

print "FTP <-> Harddisk Abgleicher *** Sebastian Jansen 2001\n\n";

$ftp = Net::FTP->new("www.einblatt.de") || die "Konnte FTP Server nicht finden!!!";
$ftp->login('ftp14353', "herbert") || die "Konnte nicht einloggen!!!";
$ftp->cwd('/www.ejansen.de/img/art') || die "Konnte Verzeichnis nicht wechseln!!!";

@FTP_content = $ftp->ls();

@LOCAL_content = <*>;
$LOCAL_content = join ("", @LOCAL_content);

my $i = 0;

foreach (@FTP_content){
		
	if ($LOCAL_content =~ /$_/){						
	}
	else {
		
		print "$_ nicht local gefunden...";
		$ftp->delete($_)|| die "Konnte Datei nicht löschen!";
		$i++;
		print "gelöscht\n";
	}				
}


$ftp->quit;

print "\n\nEs wurden $i Dateien auf Ihrem Server gelöscht.\n Drücken Sie eine Taste um zum System zurückzukehren.";
<STDIN>;