Select Code to Download

#!/usr/bin/perl
print "Content-type:text/html\n\n";
...
         copy ("$wmlfile","./$finish/$wmlfile");
         }
      }