$ftp->put($local, $remote)
or die "Failed to put file $remote: ".$ftp->message."\n";