perl -MDBI -e '$h = 
DBI->connect("dbi:Pg:dbname=template1","",""); 
$h->prepare("?"x10000);'

perl -MDBI -e '$h = DBI->connect("dbi:oracle","","");
$h->prepare("?"x10000000);'