I've just tried this code (minus the extra closing bracket). It presents me with the print of
Memory Info:
Use of uninitialized value in string eq at c:/Perl/site/lib/Win32/API/Struct.pm
line 156, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in string eq at c:/Perl/site/lib/Win32/API/Struct.pm
line 156, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
AvailPage
3185.33984375M
AvailPhys
1187.1953125M
AvailVirtual
2018.03125M
MemLoad
42M
TotalPage
3940.31640625M
TotalPhys
2047.00390625M
TotalVirtual
2047.875M
Use of uninitialized value in string eq at c:/Perl/site/lib/Win32/API/Struct.pm
line 156, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in string eq at c:/Perl/site/lib/Win32/API/Struct.pm
line 156, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in string eq at c:/Perl/site/lib/Win32/API/Struct.pm
line 156, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 214, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 221, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in join or string at c:/Perl/site/lib/Win32/API/Struc
t.pm line 229, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in pack at c:/Perl/site/lib/Win32/API/Struct.pm line
230, <DATA> line 164.
Use of uninitialized value in string eq at c:/Perl/site/lib/Win32/API/Struct.pm
line 156, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.
Use of uninitialized value in numeric lt (<) at c:/Perl/site/lib/Win32/API/Struc
t.pm line 268, <DATA> line 164.