use strict;
use warnings;
use Sys::Hostname;

print "I am running on:". hostname .", thank you and goodnight\n";

##</code><code>##

use strict;
use warnings;
use Sys::Hostname;

my $host = hostname;
print "I am running on: $host, thank you and goodnight\n";