#Anlegen der Variablen und Arrays
my ($inidaten,$ftphost,$ftpuser,@answer,$antwort,@del_rar,$fd,
$pfad,$Dateipfad,@safe_rar,$zeile,$datei_pfad,@safe_datei,@pd,
$dateigroesse_server,$aenderungsdatum_server,$answer,
$anzahl_server,$anzahl_client,$pfad_dateiname,$ftppasswort,
$socket,$imput,$helper,@pfad,$remotehost,@Serverfiles_loeschen,
$remoteport,$sek,$min,$stu,$tag,$mon,$jahr,$wtag,
$programmpfad);