if (%Data = Win32::AdminMisc::GetProcessorInfo()){
    print "Memory Information:\n";
    print "\tNumber of processors: $Data{ProcessorNum}\n";
    print "\tType of processor:    $Data{ProcessorType}\n";
    print "\tProcessor level:      $Data{ProcessorLevel}\n";
    print "\tProcessor revision:   $Data{ProcessorRevision}\n";
    print "\tPage size:            $Data{PageSize}\n";
}
if (%Data = Win32::AdminMisc::GetMemoryInfo()){
    print "\nMemory Information:\n";
    print "\tMemory available:     $Data{RAMAvail}\n";
    print "\tMemory total:         $Data{RAMTotal}\n";
    print "\tVirtual mem avail:    $Data{VirtAvail}\n";
    print "\tVirtual mem total:    $Data{VirtTotal}\n";
    print "\tPage mem available:   $Data{PageAvail}\n";
    print "\tPage mem total:       $Data{PageTotal}\n";
    print "\tCurrent memory load:  $Data{Load}\n";
}
if (%Data = Win32::AdminMisc::GetWinVersion()){
    print "\nWindows Information:\n";
    print "\tPlatform:             $Data{Platform}\n";
    print "\tVersion:              $Data{Major}.$Data{Minor}\n";
    print "\tBuild:                $Data{Build}\n";
    print "\tService Pack version: $Data{CSD}\n";
}