#!/usr/bin/perl -w
use strict;
use Sys::Hostname;
my $server = hostname;
print "Hostname is $server\n";