Select Code to Download

$ perl -e '
    use strict;
...
        WHERE field2 IN (?,?,?,?,?)
    );
$sth1->execute(1 2 3 4 5);