#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI ':standard';
use LWP::Simple;

my $address = 'https://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml?025a000c2e476c719095c900b9c8b5e4';

my $content = get("$address");
die "Couldn't get it!" unless defined $content;

print "Content-type:text/html\n\n"; 
print $content;