#!/usr/bin/perl

use strict;
use Socket;

print unpack("N", inet_aton('192.168.1.100'));