open DBG, ">$path" . "debug.log"                                          if $debug;
binmode DBG;
print DBG "content_length:$ENV{CONTENT_LENGTH}\n" if $debug;

if( $Buffer =~ /^-----------------------------\d{10,20}/ )
{
        print DBG $Buffer if $debug;

        print DBG "Blockid.:$&\n"                                                                 if $debug;

        $CountLines = 1;
        
        @Blocks = split( /$&/, $Buffer );
        undef   $Buffer;
        $Buffer="ANSI2ASCII" ;

        foreach $Block (@Blocks) 
        {
#               print DBG "Blocknr.:" . ++$BlockNr . "\n" if $debug;

                @Lines = split( /\015\012/, $Block );
                shift @Lines;
                foreach $Line (@Lines) 
                { 
#                       print DBG "Linenr.:" . ++$LineNr . "\n" if $debug;

                        if( $Line =~ /.*Content-Disposition: .*name="([^"]+)"; filename="(.*)"/ )
                        {
                                $Fieldname = &Ansii2Ascii( $1 );
                                $Filename  = &Ansii2Ascii( $2 );
                                $Filename  =~ s/.*\\([^\\]+)$/$1/;
                                $Filename  =~ s/\.(...).*$/\.$1/;
                                
#                               print DBG "File.:$Filename\n" if $debug;

                                if (  $Filename  )
                                        {
                                                $filenr = $filenr + 1;
                                                ($ext=$Filename)=~s/.*\.(.*)/\.$1/ if $Filename=~/\..+/;

                                                $NewFilename = "f".$filenr.$last.$ext;
                                        }
                                else
                                        {
                                                $NewFilename = "";
                                        }

                                $Buffer .= "&_org$Fieldname=$Filename" if $Filename;
                                $Buffer .= "&$Fieldname=$NewFilename";

                                last if ! ($Block =~ s/[\s\S]*Content-Type:[^\n]*\n//); 

                                chop $Block; chop $Block;

                                open FILEOUT, ">$path$NewFilename";
                                binmode FILEOUT;
                                print FILEOUT substr( $Block, $EmptyLines * 2 );
                                close FILEOUT;
                                
                                last;
                        }
                        elsif( $Line =~ /Content-Disposition: form-data; name="(.+)"/ )
                        {
                                $name                   = $1;
                                $Buffer                   .= "&" . &Ansii2Ascii( $1 ) . "=";
                                $FldEmptyLines = 0;
#                               print DBG "Varname:$1\n" if $debug;
                        }