my $IP=&resolve('Server');
print "$IP\n";
sub resolve(){
	my $check=join('.',(unpack("C4", gethostbyname($_[0]))));
	return $check;
}