HTTP requests; quick and dirty

HEAD.pl

#!/usr/bin/perl
use LWP::UserAgent;

$req = HTTP::Request->new(
  'HEAD' => 'http://fis.vse.cz'
);

$res = LWP::UserAgent->new(
  agent => 'Googlebot/2.1'
)->request($req);

print $req->as_string,
  $res->as_string;

POST.pl

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

## WHOIS via HTML form

$_ = new LWP::UserAgent->request(POST(
  'http://www.gigaserver.cz/whois/',
  Content_Type  => 'form-data',
  Content       => [
    dost_domain => 'jurcapavel',
    dost_tld    => 'cz',
    volba       => 'OVĚŘIT'
  ]
))->content;

#extract the WHOIS dump \
#from the HTML content
s/.*vypis-whois\">//sg;
s/[\n\r]+<\/pre>.*/\n/sg;

print;