#!/usr/bin/perl -w
use strict;
use LWP::Simple;
$|=1;   #turn off buffering so we see all the lines

print "starting...get...\n";

my $content = get("http://perlmonks.org/?node_id=957704");
   die "blank content" unless defined $content;

print "ending...get...\n";
print $content;
print "END of CONTENT\n";