perl-db2 sample script