#!/usr/bin/perl
use LWP::Simple;
($content_type, $document_length, $modified_time, $expires, $server) = head $ARGV0;
printf "$content_type <> $document_length <> $modified_time <> $expires <> $server\n";

##</code><code>##

bash$ ./test_head.pl http://localhost/tmp
text/html <>  <> Apache/1.3.9 (Unix) Debian/GNU PHP/3.0.14 <>  <> 
bash$ ./test_head.pl http://localhost/   
text/html <> 274 <> 953031425 <> Apache/1.3.9 (Unix) Debian/GNU PHP/3.0.14 <>
bash$ ./test_head.pl http://localhost/index.html
text/html <> 274 <> 953031425 <> Apache/1.3.9 (Unix) Debian/GNU PHP/3.0.14 <>