Select Code to Download

sub function1 {
    my $bSuccess=1;  # flag in case $e is undef even though we died
...
  };

return $bSuccess ? $db : $e;

sub callDBI {
    my ($aParams, $crOnError) = @_;
...
    };
    return $db;
}