Just unpack the "unsigned long" in network order:

use Socket;
my $iaddr = inet_aton("192.168.1.100");
print unpack('N', $iaddr), "\n";
[download]