#!usr/bin/perl $data_file= "data\/" . $ENV{QUERY_STRING} . ".klp"; open(DATA, $data_file) || die("Could not open file! Please notify the Webmaster by clicking the back the back button in your browser and typing 001\~$data_file as the error code."); @rawdata=; close(DATA); chop (@rawdata); ($title,$genre,$date,$info,$author,$emailaddy,$aol,$icq)=split(/\\ns/,@rawdata) || die("$data_file is not formatted correctly. Please notify the webmaster by clicking back in your browser and place 002\~$data_file as the error code."); # %final = ('author', '', 'title', '', 'data', ''); print "Content-type: text/html\n\n"; print ""; print "title $title"; print "genre $genre"; print "date $date"; print "info $info"; print "author $author"; print "emailaddy $emailaddy"; print "aol $aol"; print "icq $icq"; print "<\/body><\/html>";