Help for this page

Select Code to Download


  1. or download this
    my $file = $q->param("file") || error ($q, " No file received.");
my $filename = $q->param("filename") || error ($q, " No filename enter
+ed.");
...
while ( read( $fh, $buffer, 1024) ) { 
    print OUTPUT $buffer; 
}
  2. or download this
     ****************** Upload4s.cgi

...

close OUTPUT;
close FH;
  3. or download this
    <html>
<head>
...
</form>
<p>&nbsp;</p></body>
</html>
  4. or download this
    #!/perl/bin/perl
  use HTTP::Request::Common qw(POST);
...
             
 my $res = $ua->request($req);
  print $res->as_string;