#!/usr/bin/perl -w
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";
}