use Win32::AdminMisc;
my $machinename = Win32::AdminMisc::GetComputerName();