... if you remove the line:

sub DESTROY {}
[download]

then you get a Japh that's gone postal:

Just Another Perl Hacker DESTROY DESTROY DESTROY DESTROY DESTROY DESTR
+OY DESTROY
 DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTR
+OY DESTROY
 DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTR
+OY DESTROY
 DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTR
+OY DESTROY
 DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTROY DESTR
+OY DESTROY
 ...
[download]