if ( open _TEMP_FILE, ">$localfilepath" )
            {                                                                   
            my $len = 0;
            $line = <>;
FILEREAD:   while ( $line = <> )
                {
                #   wenn Ende-boundary dann abbrechen                                                                               
                if($line =~ /^$boundary/) 
                    { last FILEREAD; }
                #   zeilendaten in datei schreiben
                print _TEMP_FILE $line;
                $len += length( $line );
                }
            #   datei schliessen
            close _TEMP_FILE;
            if($line =~ /^$boundary--/) { return; }
            }