[root@alterserver tmp]# perl test.pl
->0815<-
[root@alterserver tmp]#

...

root@neuerserver:/tmp# perl test.pl
Can't call method "getAttribute" on an undefined value at test.pl line 9.