my $string = unpack('N',scalar(gethostbyname("192.168.1.100")));