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";
}