Perl Get HTTP Banner

the old days...

#!/usr/bin/perl -w

use strict;
use warnings;
use IO::Socket;

my $target;
my $port=80;
if ( @ARGV == 0 ) {
    print "Usage $0 [ip]\n";
    exit;
}
else {
    $target = $ARGV[0];
}

 
     
        my $remote2 = IO::Socket::INET->new(
                    Proto    => "tcp",
                    PeerAddr => $target,
                    PeerPort => $port,
                )
                or die "cannot connect to port $port  at $target";
    
    print "HEAD\n";
  print "============\n";
       print $remote2 "HEAD \n";
        while ( <$remote2> ) 
  { 
           print $_;
            
        }
  print "END OF HEAD\n";

        close $remote2;