my $ftp_obj = get_ftp_obj();
my $put_try = 0;
my $cflag = 0;
my $MAX_RETRIES = 5;
while ($put_try < $MAX_RETRIES) {
        my $ret;
	$ret = $ftp_obj->put("$file_name") if ($put_try == 0);
	$ret = $ftp_obj->append("$file_name") if ($put_try > 0);
	last if (!$ret);  # is this correct????
	$put_try++;
	print "Retrying to append $file_name, $put_try\n";
	if ($put_try == $MAX_RETRIES) {
	     die "Not able to copy $file_name\n";
	}
}