Select Code to Download

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

 my @procs = qw/recept/;
...
      die "Unknown stored proc: $SPROC\n";
    }