use Socket;
  use Sys::Hostname;
  my $host = hostname();
  my $address = inet_ntoa(scalar gethostbyname($host || 'localhost'));
  
  print "$host > $address\n" ;