use Sys::Hostname;
my $hostname = hostname();

my $ip = gethostbyname($hostname);