#!C:/Dwimperl/perl/bin/perl.exe

use strict;
use warnings;
use LWP::UserAgent;

my $url = 'http://athome.myminicity.com/xml';
my $ua = LWP::UserAgent->new();
my $response = $ua->get($url);

if($response->is_success) {
    # print $response->decoded_content;
    my $city = XML::Simple->new;
    print $city->{city}->{population}
    print population ?
    print bases =>tra ?
} else {
    die $response->status_line;
}