Select Code to Download

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

my $sth = $dbh->prepare($sql); 
$sth->execute(@CHOICE);