perl 中怎么样 export /import db2 table ,请教！

ssming0622

我直接用下面的command再server上可以执行的。

export to ./bpcust.del of del select * from d00009.newbpcust

import from ./bpcust.del of del replace into d00009.newbpcust

但是在程序中，
$dbh = DBI->connect("dbiB2m_dbname","d205300","d5passwd";  连接好db后，

`export to ./bpcust.del of del select * from d00009.newbpcust`；

`import from ./bpcust.del of del replace into d00009.newbpcust`；

都不能执行，为什么呢？有什么方式连接好db,之后可以执行上面的import/export呢？

$stmtad1 = "select count(*) from d00009.newbpcust";
$sth1  = $dbh->prepare($stmtad1);
$sth1->execute();
$n1=$sth1->fetchrow;
这些都可以执行。