sub such_eintr {        my ($param)=@_;        print "Content-type: text/html\n\n";        print "\n";        print "FORMULAR";        print '