22:03 >perl 1027_SoPW.pl
{
  server1 => { cpu => 0, disk => 0, memory => 0, network => 0 },
  server2 => { cpu => 0, disk => 0, memory => 0, network => 0 },
}
{
  server1 => { cpu => 2200, disk => 30, memory => 1024, network => 100 },
  server2 => { cpu => 0, disk => 0, memory => 0, network => 0 },
}

22:03 >