if ($modtyp = 20)
    # etc

##</code><code>##

    if ($modtyp == 20)
    # etc



##</code><code>##

   Found = in conditional, should be == at myprog.pl line x.

##</code><code>##

    #!/usr/bin/perl -w