Select Code to Download

#! /usr/local/bin/perl -w
use strict ;
...
$Survey->insert_tblqtmpl_q(\%data) ;
$Survey->update_tblqtmpl_q(\%data) ;
$Survey->delete_tblqtmpl_q(\%data) ;