my $hostname = qx[hostname -s];
chomp ($hostname); # Gets rid of trailing CR