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;

Cache-Control: max-age=600
Connection: close
Date: Sun, 10 Feb 2013 19:45:20 GMT
Via: 1.1 varnish
Age: 281
Server: Apache-Coyote/1.1
Content-Language: fr-FR
Content-Length: 92239
Content-Type: text/html;charset=UTF-8
Expires: Sun, 10 Feb 2013 19:50:39 GMT
Last-Modified: Sun, 10 Feb 2013 19:40:30 GMT
Client-Aborted: die
Client-Date: Sun, 10 Feb 2013 19:45:20 GMT
Client-Peer: 87.248.217.254:80
Client-Response-Num: 1
X-Backend: COREMEDIA_cae_director
X-Cacheable: YES
X-Died: Illegal field name 'X-Meta-Twitter:creator' at /opt/local/lib/perl5/vendor_perl/5.10.1/darwin-thread-multi-2level/HTML/HeadParser.pm line 207
X-NumberOfHits: 8
X-UnsetCookie: true
X-Varnish: 375223744 375221789