Select Code to Download

#!/usr/bin/perl -w

...
        $sth->execute($tag, $order_id) or die "Can't execute: $query. 
+Reason: $!";
}

#!/usr/bin/perl -w

...


########################################################