Select Code to Download

    my( $avail, $total )= MemoryStatus( "MB",
        "AvailPageFile", "TotalPageFile" );

    my( $avail, $total )= MemoryStatus( "MB",
        [ "AvailPageFile", "TotalPageFile" ] );

    my $hMem= MemoryStatus( "K" );
    my $load= $hMem->{MemoryLoad};

    perl -de 0
      DB<1> use Win32::MemoryInfo "MemoryStatus"
...
        'AvailPageFile' => 3026
        'TotalPageFile' => 32768
[...]

my @fieldNames=
    qw( MemoryLoad TotalPhys AvailPhys TotalPageFile
...
    my $hFields= {};
    @$hFields{@fieldNames}= @fieldValues;
    return @_ ? @$hFields{@_} : $hFields;