Select Code to Download

sub delete {
     my $obj = shift;
     my $sth = $obj->{queries}{delete} || $obj->{dbh}->prepare( 
...
     $obj->{queries}{delete} = $sth;
     return 1;
  }