my $sql = "EXEC $SPROC ".
          join ', ', ('?') x $procs{$SPROC};


##</code><code>##


 my @procs = qw/recept/;

    unless (exists $procs{$SPROC}) {
      die "Unknown stored proc: $SPROC\n";
    }