Paste your Curl command here

Resulting Perl code

Copy to clipboard
#!perl use strict; use warnings; use WWW::Mechanize; use HTTP::Request; my $ua = WWW::Mechanize->new(); my $r = HTTP::Request->new( 'POST' => 'https://example.com/', [ 'Accept' => '*/*', 'Host' => 'example.com:443', 'User-Agent' => 'pcurl/1.0', 'Content-Length' => '31', 'Content-Type' => 'application/x-www-form-urlencoded', ], '... contents of /etc/passwd ...' ); my $res = $ua->request( $r, ); __END__ Created from curl command line curl -X GET -A pcurl/1.0 https://example.com --data-binary @/etc/passwd

Powered by