Create perl_db_transaction.pl