#!/usr/local/bin/perl -w use CGI qw(:standard); print header(); print '
'; print ''; print start_html("Buyers"), h1("Buyers"); open(def_file,""; @lines ='; print "$colnames[${i}]"; print ' | '; # printf("%-${slen}s",$colnames[${i}]); # printf("%-${collens[${i}]}s",$colnames[${i}]); $i += 1; } print "
---|
'; #print "$collens[${i}]"; print ' | '; # printf("%-${slen}s",$colnames[${i}]); # printf("%-${collens[${i}]}s",$colnames[${i}]); $i += 1; } print "
'; print "$_"; print ' | '; } print '