Select Code to Download

my $foo = $obj->foo() or die;
my $bar = $foo->bar() or die;
...
for my $quux (@quux) {
...
}