Perl hasn't got any native solutions to get hardware information.
Under Linux, you can use the /proc filesystem, under Win32 I'm sure there's a win32api solution, etcetera.

By the way, all that needs to be done to work around your so called protection would be changing the perl script, so embed it and encode it. Even then, it'll not be hard to work around it.

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]