#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use LWP::UserAgent;

my $cgi   = CGI->new;
my $input = $cgi->Vars();
my $url = $input->{'url'};
my $ua = LWP::UserAgent->new;
my $response = $ua->get($url);

print $cgi->header(
  -type => 'text/xml',
);
if ($response->is_success) {
  print $response->decoded_content;
}
else {
  die $response->status_line;
}