# ********************************************

# The function return the hostname of the

# current system by using the unix command (hostname).

sub hostname {

my ($hostname) = ( `hostname` =~ m/([^\n]+)/g );

return $hostname;

}