$Thismachineaddr = `hostname`;
chomp($Thismachineaddr);