FTP servers always acknowledge a successful file transfer by sending a response numbered in the 200s. Net::FTP's put returns an error code. I'm not sure if it's true/false, or if it's the errorcode from the server (in which case you'd have to look for defined($rv) && $rv >= 200 && $rv < 300).