Select Code to Download

#!/usr/bin/perl -Tw
use strict;
...
                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;
...
                '</form></body></html>';

}

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

# file content here

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

# file content here