my $ftp = Net::FTP->new($destserv) ||
  die "Connect to $destserv failed: $@";

##</code><code>##

$ftp->get($file) ||
  die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();