use LWP::UserAgent;

my $ua=LWP::UserAgent->new;
my $result=$ua->get('http://www.perlmonks.org');

##</code><code>##

open PIPE,"/usr/bin/lynx -source http://www.perlmonks.org|"
    or die $!;

##</code><code>##

sudo ln -s /dev/null /dev/ip