Select Code to Download

upchuck() if ! $healthy;

Exception::Of::Doom->throw( error => 'Detailed error messages are impo
+rtant, especially when this error happens' ) if $oops;

upchuck() unless $healthy;  # doesn't sound right
error() unless happiness_ensues();   # better?

if ( ! $healthy ) {
    upchuck();
    die;
}

print STDERR join("\n", @lines), "\n";

print STDERR map { "$_\n" } @lines;