Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -MIO::Socket
my $body = join('&',
...
   ),
);
$_ = <$sock>;

Select or download this

      'User-Agent: Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en)',
      'User-Agent: AppleWebKit/420+ (KHTML, like Gecko)',
      'User-Agent: Version/3.0 Mobile/1C10 Safari/419.3',