RosettaCodeData/Task/Hostname/Perl/hostname.pl

use Sys::Hostname;

$name = hostname;