Select Code to Download

#!/usr/bin/perl

...
        test_dbi_name       VARCHAR2(100)
    );
";

#deduct from the transferred account
...
$update1->execute($amount, $user);
$up1 = $update1->finish();