my $cmd = '/bin/hostname';
open (IN, "$cmd|");
chomp(my $hostname = <IN>);