my ($host,$port);
if(defined($ARGV[0]))
{
	$ARGV[0]=~ /([^:]+):?(\d*)/;
	($host,$port) = ($1,$2);
}
$host = $host || 'google.com';
$port = $port || 80;