print STDERR "1:$orderid:$remainingamount > $requestedamount\n";
if ($remainingamount > $requestedamount) {
	bbcart::report_error(message => "$orderid:Amount approved by server is more than the requested amount. So exiting.");
	die "Amount approved by server is more than the requested amount.";
}

##</code><code>##

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi