Select Code to Download

package user::user;

...

1;

#!/usr/bin/perl -w
use strict;
...
print "\n\nAnd now the table data...\n";
my @obj = user::user->search(recnum =>1);
print "$_\n" foreach @obj;

COLUMNS:
lastname
...

And now the table data...
sth_to_objects needs a statement handle at ./cdbi_tst.pl line 38