#!/usr/bin/perl

use diagnostics;
use strict;
$| = 1;

my $peername = "fit.faccat.br";

my $peeraddr = (gethostbyname($peername))[4];
my @ip_numbers = unpack("C4",$peeraddr);
my $ip_address = join(".",@ip_numbers);

print "Endereço ip = $ip_address\n";


exit 0;