#!/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;
use Crypt::SSLeay;
use HTTP::Cookies;
use HTTP::Headers;

print "Content-type: text/html\n\n";
$ua = LWP::UserAgent->new;
$login = "https://secure.video.uefa.com/Selfcare/default.aspx?navGraph=Login";
$req = HTTP::Request->new(GET => $login);
$res = $ua->request($req);
print $res->as_string;