my $hostname=`hostname`;
chomp $hostname;
# ... etc.