Select Code to Download

  ...
  $_ = 'the small print';
...
    print "statement parameters: $p1, $p2, $p3\n";
 }
 ...

 ...
 sub1( 'replace into reference_code values (?,?,?)', "$1", "$2", "$3" 
+)
 ...