#!/usr/bin/perl -Tw use strict; use CGI qw(:all); use Data::Dumper; if (request_method() eq 'POST') { my $f=param('f'); my $info=uploadInfo($f); print header(), start_html(), h1('Upload Metadata'), pre(escapeHTML(Dumper($info))), end_html(); } else { print header(), start_html(), start_multipart_form(), filefield(-name=>'f',-size=>50), submit(), end_form(), end_html(); } ##

##

$VAR1 = {
          'Content-Type' => 'application/octet-stream',
          'Content-Disposition' => 'form-data; name="f"; filename="win.ini"'
        };

##

##

$VAR1 = {
          'Content-Type' => 'application/octet-stream',
          'Content-Disposition' => 'form-data; name="f"; filename="C:\\WINNT\\win.ini"'
        };

##

##

#!/usr/bin/perl -Tw
use strict;

print
        "Content-Type: text/html\015\012\015\012";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
        print
                "";
        print while <STDIN>;
} else {
        print
                '<html><body>',
                '<form method="post" action="" enctype="multipart/form-data">',
                '<input type="file" name="f" size="50">',
                '<input type="submit">',
                '</form></body></html>';

}

##</code><code>##

-----------------------------114782935826962
Content-Disposition: form-data; name="f"; filename="win.ini"
Content-Type: application/octet-stream

# file content here

##</code><code>##

-----------------------------7d936e1f40214
Content-Disposition: form-data; name="f"; filename="C:\WINNT\win.ini"
Content-Type: application/octet-stream

# file content here