My Perl Quiz

The ultimate place to learn Perl!

Question #40: What will be printed (disregard newlines)?

package A;

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


package main;

my $a = A->new();

die "b\n";

END {
    print "c\n";
}