# Create a user agent object
use LWP::UserAgent; # why this instead of use LWP; ?

$ua = LWP::UserAgent->new; #what's happening here?, in particular, who are the functions, who are the arguments and who are the results?
$ua->agent("MyApp/0.1 "); # what is agent("...") and why is it needed?

# Pretty much the same for the rest of this example.

# Create a request
my $req = HTTP::Request->new(POST => 'http://www.perl.com/cgi-bin/BugGlimpse');
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
if ($res->is_success) {
    print $res->content;
} else {
    print "Bad luck this time\n";
}