$modtyp = 9;
if ($modtyp == 9)
{
print " response1";
}
elsif ($modtyp == 10)
{
print " response2\n";
}

the reponses are not being typed even if the value of $modtyp
can be seen to be set to a value being checked!!!