$!5.2 Command Procedure to Check System Requirements 
$Swap=F$GETSYS("PAGEFILE_PAGE")*8192/1048500
$Mem=F$GETSYS("MEMSIZE")*8192/1048500
$Node=F$GETSYS("NODENAME")
$Vers=F$GETSYS("VERSION")-"V"
$ @sys$update:decw$get_image_version sys$share:decw$xmlibshr.exe-
                Motif
$Motif=Motif-"V"-"DW "
$ Spawn/Out=XXXXX.TMP/NoLog perl -v
$ Open/Read TMP XXXXX.TMP
$ Read TMP Line
$ Read TMP Line
$ Close TMP
$ Delete XXXXX.TMP;*
$ Perl=F$EXTRACT(22,26,Line)
$ Write Sys$Output -
"Node   OS/Version      RAM Mb  Swap Mb Motif           Perl"
$ Write Sys$Output -
Node,"  ","VMS ",Vers," ",Mem," ",Swap,"        ",Motif,"       ",Perl