The statements

    if ($modtyp = 20)
    # etc
[download]

should be

    if ($modtyp == 20)
    # etc
[download]

If you use perl -w you will get a warning about this type of error:    Found = in conditional, should be == at myprog.pl line x.

Your shebang line looks a bit odd. It should be something like:     #!/usr/bin/perl -w There are other errors in your code as well. If you enable warnings, as shown above, the compiler will highlight most of them.

--
John.