#!/usr/bin/perl -w
use strict;
use user::user;
use Data::Dumper;

my @cols = user::user->columns;
print "COLUMNS:\n";
print "$_\n" foreach @cols;
print "\n\nAnd now the table data...\n";
my @obj = user::user->search(recnum =>1);
print "$_\n" foreach @obj;