Not that it really matters because Socket is part of every perl distribution. But you could also do it like so

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