Try to use this below command in the perl script. I tried this in linux/unix OS.

Unix Command
$ grep "model name" /proc/cpuinfo
Output:
model name : Intel(R) Xeon(TM) MP CPU 2.50GHz