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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

# With exceptions
eval {
	$sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region });
	$sth->execute;
	my ($region, $sales);
	$rv = $sth->bind_columns(\$region, \$sales);
	while ($sth->fetch) {
		print "$region: $sales\n";
	}
};
die $dbh->errstr if $@;

##</code><code>##

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