name2ip.pl

#!/usr/bin/perl

sub name2ip{
	my @addrs = (gethostbyname($_[0]))[4];
	my @ip = unpack('C4', $addrs[0]);
	return join(".", @ip);
}