#!/usr/bin/perl -w
use strict;
use LWP::Simple;

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