sub AddWin9x {
my %hoh = shift or next;;
my $computer;
my $os;
my $cpu;
my $mhz;
my $ram;
my $sp;

print "\n\nWindows 98//Me\n\n";

foreach {$hoh{$domain{$computer}}) {
        ($os, $sp, $cpu, $mhz, $ram) = $computer;
                printf ("%20s %3s %-15s %3s %4s %5s\n",$computer, $os, $cpu, $mhz, $ram);
        }
}