#!/usr/bin/perl

use strict;
use warnings;

my $sql = "
    CREATE TABLE test_dbi1 (
        test_dbi_intr_no    NUMBER(15),
        test_dbi_name       VARCHAR2(100)
    );

    UPDATE mytable
        SET col1=';yes;'
        WHERE col2=1;

    UPDATE mytable
        SET col1='Don\\'t use ;s and \\'s together, it is a pain'
        WHERE col2=1;


    CREATE TABLE test_dbi2 (
        test_dbi_intr_no    NUMBER(15),
        test_dbi_name       VARCHAR2(100)
    );
";

##</code><code>##


#deduct from the transferred account

$update = $DBH->prepare("UPDATE USER SET BALANCE = BALANCE - ? WHERE USERNAME = ?");
$update->execute($amount, $user);
$up = $update->finish();

#add to the receiving account
$update1 = $DBH->prepare("UPDATE USER SET BALANCE = BALANCE + ? WHERE USERNAME = ?");
$update1->execute($amount, $user);
$up1 = $update1->finish();