My Perl Quiz

Question #40: What will be printed (disregard newlines)?
42% on 90 times asked

package A;

sub new { return bless {} }
sub DESTROY { print "a\n" }


package main;

my $a = A->new();

die "b\n";

END {
    print "c\n";
}