sub getHostname {
  $hostname = system "/bin/hostname";
  print "Hostname: ", $hostname, "\n";
  return 0;
}