This script does the job on Win32.

So does this....

C:\>perl -e "print `mem`"

    655360 bytes total conventional memory
    655360 bytes available to MS-DOS
    633712 largest executable program size

   1048576 bytes total contiguous extended memory
         0 bytes available contiguous extended memory
    941056 bytes available XMS memory
           MS-DOS resident in High Memory Area

C:\>
[download]

Actually the results or DOS mem are RUBBISH - Please Ignore this post...