#!/usr/bin/perl # Program Name: wserver.cgi # Author: Rajiv Pant (Betul) betul@rajiv.com http://rajiv.org # what web server software is that site running ? # get head information $| = 1 ; print < code-complete server ID EOM &parse_form_data (*INPUT) ; ($server, $port) = ($INPUT{'server'}, $INPUT{'port'}) ; $port = 80 unless $port ; # parsing the input for schwaggy chars $server =~ s/[^A-Za-z0-9\.\-]//g ; $port =~ s/\D//g ; &find_out if $server ; &input ; open (FOOTER, "/include/footer.inc") ; while (