#!/usr/bin/perl -w 

#url_touch.pl program file 

use strict; 
use LWP::Simple; 

my $url = $ARGV[0];
my $url_head; 
my @list; 
foreach $url_head(head($url)) 
{ 
 $url_head = "Not Given" unless defined $url_head; 
 push( @list, $url_head);
} 
my ($content_type, $document_length, $modified_time, $expires, $server
+) = @list; 
print ">>$content_type<< ";
print ">>$document_length<< "; 
print ">>$modified_time<< "; 
print ">>$expires<< "; 
print ">>$server<<\n";
[download]