Select Code to Download

my $query = "SELECT location FROM demstock2 WHERE ds_id=$main";
my $sth   = $db->prepare($query);
$sth->execute or print "Can't execute <pre>$query</pre>: " . $db->errs
+tr . "<br>\n";

my $query = "SELECT location FROM demstock2 WHERE ds_id=?";
my $sth   = $db->prepare($query);
$sth->execute( $main ) or print "Can't execute <pre>$query</pre>: " . 
+$db->errstr . "<br>\n";

my %actions = { 'BOND'=>\&do_bond,
                'SHARE'=>\&do_share }
...
} else {
   print "Action is not defined.";
}

sub do_bond {
   get LOCATION;
...
      update & insert or return;
   return 1; # if you got here, everything's fine
}

sub do_bond {
   get LOCATION;
...
      update & insert or { set error; next; }
   return 1; # if you got here, everything's fine
}