#!/usr/bin/perl
# What The Server Is RUNning
# get the server make (and maybe OS) by GETting
# a simple query via http...

if (!$ARGV[0]) {
  print "Usage: witsirun.pl [host] [port]\n";
} else {
  $ARGV[1] = 80 if ! $ARGV[1];
  print "Getting ";
  print `echo 'GET / HTTP/1.0\n' | netcat $ARGV[0] $ARGV[1] | grep '^Server:'`;
}