#!/usr/bin/perl -w
###########################################
# webclient
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(
   parse_head => 0
);

my $resp = $ua->get(
 "http://perlmeister.com/cgi/isotest.cgi");

if($resp->is_success()) {
    my $text = $resp->decoded_content();
    binmode STDOUT, ":utf8";
    print "$text\n";
}