while(1)で無限ループ→CPU発熱→あったかマターリ
ということでよろしいでしょうか?
...って、別にPerlでなくても(自爆