$s_ftp->binary() or die $s_ftp->message;
$d_ftp->binary() or die $s_ftp->message;