#!/usr/bin/perl

use strict;
use Socket;

my $packed_ip = gethostbyname("www.qupps.biz");
if (defined $packed_ip) {
    # Convert bytes to printable representation
    my $ip_address = inet_ntoa($packed_ip);
    print "IP Address: $ip_address\n";
}