print "Hostname: ";
getHostname;

sub getHostname {
  system "/bin/hostname";
  return 0;
}