[jane]:~/cat test.pl #!/usr/bin/perl use strict; use LWP::Simple; my @array = head(shift); my $i = 0; foreach my $line (@array) { print "$i: $line\n"; $i++; } [jane]:~/perl test.pl http://www.fdntech.com 0: text/html 1: 2: Apache/1.3.11 (Unix) PHP/3.0.14 [jane]:~/