use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent('Schmozilla');
$response = $ua->get('http://videos.arte.tv/de/videos');
die if $response->is_error();
print $response->headers->as_string;