Select Code to Download

my $output = '';
my $buffer;
while (my $n = read(INPUT, $buffer, 1024)) { $output .= $buffer };

sub foobarfribbleni {
    eval {$o->foo->bar->fribble->ni};
    die "failed to foobarfribbleni" if $@;
};

sub foobarfribbleni {
    $o->foo or die "failed to foobarfribbleni";
...
    $o->fribble or die "failed to foobarfribbleni"
    $o->ni or die "failed to foobarfribbleni"
}

# With exceptions
eval {
...
    }
};
die $dbh->errstr if $@;

# Without exceptions
$sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region })
...
while ($sth->fetch or die $dbh->errstr) {
    print "$region: $sales\n";
}