query on ibm as400 db

[nav_kmr]

Hi all,
can some one tell me how to connect to ibm as400 db using perl script.pls give a sample code.

Thanks in advance.