perl ftp script