#!/usr/bin/perl print "Content-type: text/html\n\n"; open(FILE, "; print "\n"; print "$rdstr\n"; print "\n" close(FILE);