#!/usr/bin/perl -w
use strict;
use Socket;

my $string = inet_aton("204.87.241.1");
print "$string\n";