sub ftpget {
  my ($ftp, $remote, $local) = @_;
  my $get = $ftp->get("$remote", "$local");
  return 0 if not defined $get;
  my $res = 0;
  if ($local =~ /$get/) {
    print "\tget $remote --> $local\n";
    $res = 1;
  } else {
    print "\tget ERFOLGLOS:  $remote -/-> $local\n";
  }

  return $res;
}