Select Code to Download

INSERT INTO Ticket_Data(Data_id, Prov_id, Provclientid) VALUES (Ticket
+_Data_seq.nextval, 'EECO::UTN:BPL', 'BPC::123');

$query = $dbh->prepare(qq{SELECT * from table_name});
...
} elsif ($action eq 'Update') {
...
}