#!/usr/bin/perl;

use LWP;
use strict;
use warnings;

my $ua = new LWP::UserAgent;

my $r = $ua->get("http://www.perlmonks.org/index.pl?node_id=231795");

if ($r->is_success)
{
    if ($r->content =~ m/^\s+\S/m)
    {
	print "I saw some trailing spaces...\n";
    }
    else
    {
	print "Oppsie! I did not see any trailing spaces...\n";
    }
}
else
{
    die "Failed miserably\n";
}