Ghettocode

#!/usr/bin/perl
#
# dhreport.pl: grab sshd/httpd versions from owned hosts
#	       return ownage if possible? :)
#
 
use strict;
use warnings;
use File::Basename;
use Getopt::Long;
use IO::Socket::INET;
use LWP::UserAgent; 
 
sub usage 
{
	my $script = basename($0);
	print <<USAGE
 
	$0 [ -f <file> -t <timeout> ]
 
		-f 	hosts.deny file to read from
			default: /etc/hosts.deny
 
		-t	timeout for outbound connections
			default: 4
 
	NOTE: hosts.deny file assumes 'sshd: <host>' format
 
USAGE
;
 
	exit 0;
}
 
 
my $opt = {};
GetOptions( $opt,