if ( defined( $File_Handler ) ) { if ( open( LFH, "> $Lokales_Verzeichnis\\$Remote_File" ) ) { my $Einzelne_Zeile; binmode( LFH ); { # in diesem Block die ganzen Daten in einem Rutsch schlürfen local $/ = undef; $Einzelne_Zeile = <$File_Handler>; } print LFH $Einzelne_Zeile; close( LFH ); } else { print( "Fehler bei der Speicherung des Remote - Files" , "\n" ); exit( 0 ); } } }