in reply to `hostname -s`

Also see Sys::Hostname.

In Section Seekers of Perl Wisdom