Select Code to Download

$SqlStatement=$db->prepare("SELECT TransDate, TransPmtAmt FROM Cust_ac
+t_da WHERE CustomerNumber = ? AND TransType = 'P'") or die "prepare f
+a
+iled: " . $db->errstr()."\n";

    $SqlStatement->execute($CustomerNumber);

    while ( @stuff = $SqlStatement->fetchrow() ) {

     # do things with @stuff
        $FormatTransDate = substr($TransDate, 0, 10);
...
             print "    ";
             print $FormatTransPmtAmt;
    }