BUU,
It wasn't very hard to break. If breaking it is what I did.

my $sub = sub { print "hello\n"; };
$sub->();
[download]

I will play more after this is fixed ;-)