tcp        1      0 ::ffff:1.2.3.4:80    ::ffff: 
5.6.7.8:33196 CLOSE_WAIT  27647/httpd

##</code><code>##

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => "", timeout => 30);
my $response;

my $url = 'http://example.com/';

while ()
    {
    sleep 60;
    $response = $ua->get($url);
    if (not ($response->is_success))
        {
        print "Can't retrieve page: " . $response->status_line . "\n";
        next;
        }
    my $page = $response->content;

    [... process content]

    }

##</code><code>##

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => "", timeout => 30);

my $url = 'http://example.com/index.php?do=action';

[... some parameter checking]

for my $i (@ARGV[2..$#ARGV])
    {
    my $response = $ua->post($url, [ value0 => $ARGV[0],
        value1 => $ARGV[1], value2 => $i, Submit => 'Submit' ] );
    if (not ($response->is_success))
        { die "Can't retrieve page: " . $response->status_line . "\n"; }

    my $page = $response->content;

    [... process content]

    }