my $rv = $dbh->do("begin foo_procedure(?); end;", undef, 'iowa')
    or die "Can't do: ", $dbh->errstr;