use DBIx::DAL;

   my $f = 3;
   dal->connect("mysql:dbname:localhost", "user", "pass");
   my $id = query "foo[blah = 1 | 2, baz = ?](id)", $f;
   dal->disconnect;