#!/usr/bin/perl $buffer=; ($alg, $vaartus)=split(/=/, $buffer); #chop($vaartus); if ($vaartus eq "modelling"){ system "perl vahe.pl"; } else{ print "Content-type: text/html\n\n "; print ""; print "Inorrect \n"; print " Incorrect word ";}