Select Code to Download

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

use strict;
use warnings;
...
$source_ftp->pasv_xfer($source_file, $dest_ftp, $dest_file)
  or warn "Failed xfer:\n" .
      $source_ftp->ok ? $dest_ftp->message : $source_ftp->message;