Have you checked the result of the glob? It might not contain the list of files you think it does. Why have you commented out the use strict;? Not a good move, IMHO. Regarding your logic, it might be better to to put the for loop just around the $ftp->put( ... ) so that you are not constantly opening and closing FTP connections.
I hope your IP, username and password have been anonymised :)