Try replacing this:

my @vals2 = do_sql($server,
        qq#select * from ct_countries where code = ?#, '000');
[download]

With this:

my @vals2 = do_sql($server,
        qq#select * from ct_countries where code=?#, '000');
[download]

I seem to remember having this same problem and I stumbled on this working. Don't ask me why it doesn't work the "normal" way, but I use it all the time.