use Data::Dumper;
use LWP::UserAgent;

my $gif = 'http://some.domain.com/path/to/some.gif';
my $ua = new LWP::UserAgent;
my $req = new HTTP::Request GET => $gif;
my $res = $ua->request($req);
print Dumper $res;

##</code><code>##

use Time::HiRes 'time';

my $begin = time();
# do stuff, lets waste some time
$cnt++ for 1..1000000;
my $end = time();
my $time = ($end - $begin) * 1000;
print "Took $time milliseconds\n" ;

##</code><code>##

my $kids = 100;
for ( 1.. $kids ) {
    my $pid = fork();
  next if $pid;
    # add code for child to process here
}