#!/usr/local/bin/perl -w
#both left or right ajustiment, when length is 0, will print the string
#put extra :: at the end of .def file to avoid
# to print out last field as trash
if (@ARGV) {
print "Content-Type: text/html \n\n";
print "$ARGV[0]\n";
}
else {
print "Content-Type: text/html \n\n";
}
print "\n";
print '
';
print '';
open(def_file,"/home/chrislu/http_root/jws/cgi-bin/bid.def") || print "die";
@lines = ;
@colnames = split(":",$lines[0]);
close(def_file);
print "";
print "";