use Sys::Hostname;
my $hostname = hostname;
print "---------- $hostname ----------\n";