$ /usr/bin/perl -w call.function.pl
ok 1 - Expect 123456 returned
DBD::DB2::db prepare failed: [IBM][CLI Driver][DB2/LINUX] SQL0418N  A statement contains a use of a parameter marker that is not valid.  SQLSTATE=42610
DBD::DB2::st execute failed: [IBM][CLI Driver][DB2/LINUX] SQL0418N  A statement contains a use of a parameter marker that is not valid.  SQLSTATE=42610
execute failed at call.function.pl line 48.
1..1
# Looks like your test died just after 1.
$