Select Code to Download

#!/usr/bin/perl

...
my $foo = Foo->new;
$foo->bar = 4;
print $foo->bar,"\n";

Can't modify goto in lvalue subroutine return at ...