Select Code to Download

$dbh=$db->prepare("SELECT nvl(mb_award,0.00),
                          nvl(mb_accept,0.00)
...
my $mb_amount_disp = $mb_award > 0.00 ? $mb_award : 
                        $mb_accept > 0.00 ? $mb_accept :
                           0.00; # Assume you have negative values

use strict;
use DBI;
...

$sth->finish;
$dbh->disconnect();