#!/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,"/z/p/l/plee1274/jws/cgi-bin/sid.def") || print "die";
@lines =