#!/usr/local/bin/perl # require("cgi-lib.pl"); &ReadParse; $hex = $in{'hex'}; $url = $in{'url'}; $smi = pack "H*", "$hex"; print &HtmlTop; print &PrintHeader; print "Edit SMILES"; print ""; print "
"; print ""; print "Use"; print ""; print "to modify this structure\n"; print "
"; #print "
"; #print ""; #print "
"; #print &PrintVariables( %ENV ); #print &PrintVariables( %in ); print &HtmlBot;