my $hostname = `hostname`;

unless (defined $hostname) {
    print "found error of: $!\n";
}