my $host = qx[hostname];