sub get_data { $rec_size = 118; open (DATA, $input{'DATAFILE'}) || die $input{'DATAFILE'} not found. Stopped"; seek (DATA, $rec_num * $rec_len, 0); read (DATA, $record, $rec_size); close DATA; ($gif_name, $ml_num, $price, $br_num, $ba_num, $sqft_liv, $sqft_oth, $yr_built, $gar, $lt_sz, $acr, $desc, $realtor) = unpack ("A50 A7 A10 A2 A4 A5 A4 A4 A15 A10 A5 A200 A100", $record); } sub HTML_heading { print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; } 1;