Select Code to Download

my $dbh = $db->prepare("SELECT balance FROM Table1 WHERE username=? an
+d balance < '-.01'");
$dbh->execute($authuser);
my ($balance_due) = $dbh->fetchrow_array;

$balance_due = -$balance_due

# or

$balance_due = $balance_due * -1;

$balance_due =~ s/-//;