Select Code to Download

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

my $ip = gethostbyname($hostname);

use POSIX qw( uname );

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

# the rest as above