It seems to be broken...

use strict;
my $code = "death to dot star!\n";
print $code;
[download]

update: jdalbec already re-broke the code. Just noting it was silently updated -- boo! -- after I showed it broken the first time.