if ( open LFH, ">", "$Lokales_Verzeichnis\\$Remote_File" ) {
	binmode LFH;

	my $myLine;    

	{ # in diesem Block die ganzen Daten in einem Rutsch schlürfen
	local $/ = undef;
	$myLine = <$File_Handler>;
	}

	print LFH $myLine;
	close LFH;
}
else
{
	print "Could not open local file '$Remote_File' for transfer\n";
}