if ($ftp->command('CPFR', 'pfad1/test_ftp.pl') && $ftp->command('CPTO','pfad2/test.pl')) { print "OK\n" }
else {
	print "Fehler >" . $ftp->message . "<\n";
}
print "setze binary\n";
$ftp->binary;
exit();