Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
        write_file( '/tmp/filename', {append => 1 }, "Uploading $filename 
    +($umid) - $bytes_read\n" ) ;
        sleep 1;
    }
    
  2. or download this
    <html>
        <body>
    ...
            upload file: <input type="file" name="uploaded_file" /><br /><
    +input type="submit" tabindex="2" name=".submit" />
        </body>
    </html>