Select Code to Download

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

 foreach $filefinish (@fileftp)
 {
    unlink $filefinish;
  }

C:\Perl\bin>perl file.pl
File x.wml has been transferred
...
z.wml: File not found

C:\perl\bin>