Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    write_file( '/tmp/filename', {append => 1 }, "Uploading $filename 
+($umid) - $bytes_read\n" ) ;
    sleep 1;
}

Select or download this

<html>
    <body>
...
        upload file: <input type="file" name="uploaded_file" /><br /><
+input type="submit" tabindex="2" name=".submit" />
    </body>
</html>