perl script problem.

UNIX HP-UX
1

I test this perl script on hpux 11.x and everything is OK, on hpux 10.20 it doesn't work

perl -e 'local($PSTAT,$PSTAT_STATIC,$mem_info,$PSTAT_STRUCT)=(239,2,"\0"x120,"LI4L");
syscall($PSTAT,$PSTAT_STATIC,$mem_info,length($mem_info),1,0);
print "RAM=".int((unpack($PSTAT_STRUCT,$mem_info))[4]*((unpack($PSTAT_STRUCT,$mem_info))[5])/(1024*1024))."\n";'

Do U have any idea ?

Thx

2

What's it supposed to do? What fails? With what error? "It doesn't work" doesn't tell us much to work with.