The name of the script makes no difference to Perl. Something else is going on.

What do you mean by "it doesn't work"? How are you running the program? When you rename it to wftp4.pl, does it have the proper permissions? Are you also moving the file to a different directory when you rename it?