FTP Debug output:

Net::FTP=GLOB(0x4041cfd8)<<< 220 server FTP server ready.
Net::FTP=GLOB(0x4041cfd8)>>> USER weblogs
Net::FTP=GLOB(0x4041cfd8)<<< 331 Password required for weblogs.
Net::FTP=GLOB(0x4041cfd8)>>> PASS ....
Net::FTP=GLOB(0x4041cfd8)<<< 230 User weblogs logged in.
Net::FTP=GLOB(0x4041cfd8)>>> CWD /export/home/weblogs/subsidiary/
Net::FTP=GLOB(0x4041cfd8)<<< 250 CWD command successful.
Net::FTP=GLOB(0x4041cfd8)>>> PORT 170,6,240,108,208,249
Net::FTP=GLOB(0x4041cfd8)<<< 200 PORT command successful.
Net::FTP=GLOB(0x4041cfd8)>>> RETR subsidiary.28067.access.file.log
Net::FTP=GLOB(0x4041cfd8)<<< 150 Opening ASCII mode data connection for subsidiary.28067.access.file.log (40641 bytes).
Net::FTP=GLOB(0x4041cfd8)<<< 226 Transfer complete.
Net::FTP=GLOB(0x4041cfd8)>>> QUIT
Net::FTP=GLOB(0x4041cfd8)<<< 221-You have transferred 40841 bytes in 1 files.
Net::FTP=GLOB(0x4041cfd8)<<< 221-Total traffic for this session was 41290 bytes in 1 transfers.
Net::FTP=GLOB(0x4041cfd8)<<< 221-Thank you for using the FTP service on server.
Net::FTP=GLOB(0x4041cfd8)<<< 221 Goodbye.

End FTP debug output

FTP Get Failed

##</code><code>##

	if ($ftp->put($sub_log)) {
		print "FTP Put successful from server $ftp_server\n";
	}else{
		print "FTP Put Failed\n";
	}