my $ST = $DB->prepare("foo.bar.baz(?, ?, ?)");
$ST->execute($arg1, $arg2, $arg3);

##</code><code>##

my $ST = $DB->prepare(<<EOSQL);
  UPDATE TABLE1 SET FOO=?, BAR=?, BAZ=?
  WHERE KEYCOL1=? AND KEYCOL2=?
EOSQL
$ST->execute($foo, $bar, $baz, $key1, $key2);