#!/usr/bin/perl


my $request = <<'EOF';
GET http://yahoo.com/ HTTP/1.0
Host: google.com
User-Agent: LWP::Simple/5.64

EOF


@ARGV = map {s/:/ /g;$_} @ARGV;
my $netcat = "nc -w 5 " . join(" ", @ARGV) . "|head -20";


print $netcat;

separator();    #---------------------------------------------------



open POUT, "|$netcat"   or die;
print STDOUT $request;
print POUT $request;
close POUT;


separator();    #---------------------------------------------------



$request =~ s# HTTP/1.0$# HTTP/1.1#m;

open POUT, "|$netcat"   or die;
print STDOUT $request;
print POUT $request;
close POUT;


sub separator {print "\n\n", "-"x75, "\n\n"}