$txt1*$txt2=$result"; case ($List=="-"): $result = $txt1-$txt2; print "

$txt1-$txt2=$result"; case ($List=="/"): $result = $txt1/$txt2; print "

$txt1/$txt2=$result"; break; } ?>