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

my $ip = gethostbyname($hostname);

##</code><code>##

use POSIX qw( uname );

my $hostname = (uname())[1];

# the rest as above