##

    my $filename = $cgi->param('upload_file');
    binmode($filename);

    my $test = "";
    my $buffer;
    
    while ( read($filename, $buffer, 1024) ) {
        $test .= $buffer;
        
    }