# get_header.pl - print out headers of various URLs
use strict;
use LWP::UserAgent;
my @urls;

# Create array of URLs to visit
push(@urls,"http://www.infojobs.net/empresa_login.cfm");
push(@urls,"http://www.msn.com");

# Create user agent which emulates Internet Explorer
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (Compatable; MSIE 5.01; Windows NT 5.0)');

# Cycle through URLs and print out their headers
for my $url (@urls)
{
	my $request;
	my $result;

	# Create a request object for this URL
	$request = HTTP::Request->new('GET', $url);
	$request->header('Accept' => 'text/html');

	# Submit the request
	$result = $ua->request($request);

	# Print the resulting header
	print "_" x 80 ."\n";
	print "Looking up $url...\n";
	print $result->headers_as_string;
}