or download this
Code and Output Follows:
#!/usr/bin/perl
...
$VAR1 = 'Comments => "a" , InstallAddID => "a" , County => "a" , Ariba
+ToID => "a" , AribaFromID => "a" , ProcessStatus => "a" , DeliverToAd
+dID => "a" , HasBadPart => "a" , ShipToCode => "a" , AribaPO => "Defa
+ult" , DeptidCode => "a" , OrderType => "a" , PODateProcessed => "201
+0-06-29 10:53:25" , PODate => "a" , ShippingNotes => "a" , Requisitio
+nNum => "a" , Mode => "a" , StoreNumber => "a" , Replaced => "a" , Ta
+rget => "all" , OrderNotes => "a" , ReqDeliveryDate => "2010-06-29 10
+:53:25" , Iteration => "a" , LineItemCount => "a" , POID => "a" , Jam
+coPO => "a" , DebugData => "a" , POTotal => "a"';
$VAR2 = undef;
Issuing rollback() due to DESTROY without explicit disconnect() of DBD
+::SQLite::db handle dbname=/da_db.db.