Select Code to Download

#!perl

...
$a->open(">K") or die "could not open";
print {$a} "hello" or die "I expect to die here";
$a->print("hello") or die "I expect to be dead before we get to this p
+oint";

#!perl

...
my $a3 = A->new;
print $a3->whoami;
print $a3->sayhi;