Thanks.
some limitations are here : I am passing the $dbh as handle to this module. so basically DBI::Connect method is getting called from some other place. like this:

my $obj = module->new($dbh);
$obj->getDDL();
$obj->method2();
[download]

Any other problem did you see in getDDL method, sicne I am storing the value from $DBI::error str.