#! /usr/bin/perl

use strict;
use warnings qw( FATAL all );

# not sure what this does
my @pop = qw( 1 21 3 24 2 9 5 0 0 0 5 15 4 25 4 16 );
$SIG{__DIE__} = sub { print substr pop,pop@pop,pop@pop };
eval for <DATA>; __DATA__;

# download pages from perlmonks
printf "%-s", "getting perlmonks nodes\n";
my $node = { node1 => qw(The Monastery Gates), node2 => qw(Seekers of Perl Wisdom) };
use lwp v5.75;  # use latest version

# make sure we have a valid pid and fork off a child
require $$;
if( defined( my %pid ) ) { $pid{ fork() or die } = 1 }

# get the html data and print it
my $html = connect 'http://www.perlmonks.org/index.pl?node=$node', 10;
print html, "\n";