perl hostname.pl
hostname: not defined
*****
correct_UNIX_box_name
Hostname: ****