Many thanks to btrott, t0mas and lhoward.
Your suggestions help a bunch.
    cheers,
    ybiC

##################################################

mostly stylistic (and hopefully constructive) suggestions re "Simple WebServer Scanner"

#!/usr/bin/perl -w

# swesc.pl

use strict;
use warnings;
use Socket;

my $remote = shift;
my $port   = 80;

Usage() unless($remote);

if ($port  =~ /\D/) { $port = getservbyname($port, 'tcp') }
my $iaddr  = inet_aton($remote)         or die "Error with inet_aton: 
+$!";
my $paddr  = sockaddr_in($port, $iaddr) or die "Error with sockaddr_in
+: $!";
my $proto  = getprotobyname('tcp')      or die "Error with getprotobyn
+ame: $!";
my $submit = "HEAD / HTTP/1.0\r\n\r\n";

socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "Error with socket: 
+$!";
connect(SOCK, $paddr) or die "cannot connect to $remote: $!";
send(SOCK,$submit,0);
while(<SOCK>) {
   if($_ =~ /Server: (.*)/) {
      print "\n$_";
      }
   }
close(SOCK);

######################################################################
+####

sub Usage {
   print "\nUsage : $0 <remote host>\n";
   exit();
   }

######################################################################
+####

=head1 Mostly stylistic suggestions, hopefully constructive:

 X -w on shebang line or use warnings;
 X use strict;
   unless ($remote... instead of if ($ARGV[0]...
   Don't need die "no port specified"... line
   Rename "affichage" to "Usage"
   Mixed-case subroutine names
   Use "or" instead of "||" in die statements
   Use $! in all die messages
   Consistant die messages
   my $remote = shift;

=head1 good monk Asmo's original code:
 
 #!/usr/bin/perl
 
 use Socket;
 use Strict;
 use warnings;
 
 my $remote = $ARGV[0];
 my $port=80;
 
 if ($ARGV[0] eq "") {
 affichage();
 }
 
 sub affichage
 {
         print "\n\nUsage : $0 <remote host>\n";
 exit();
 }

 $submit = "HEAD / HTTP/1.0\r\n\r\n";
 if($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
 die "no port specified" unless $port;
 my $iaddr = inet_aton($remote) || die "$remote";
 my $paddr = sockaddr_in($port, $iaddr) || die "Caca !!";
 my $proto = getprotobyname('tcp') || die "protocol !!";
 
 socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "cannot open socket
+ : $!";
 connect(SOCK, $paddr) || die "cannot connect to $remote: $!";
 send(SOCK,$submit,0);
 while(<SOCK>)
 {
 if($_ =~ /Server: (.*)/) {
         print $_;
 }
 
 }
 close(SOCK);

=cut
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.