Select Code to Download

    my $class;
    my $sql;
...
    $class = shift @bindparms;
    $cntl = shift @bindparms;
    $sql = shift @bindparms;