my $ftp = Net::FTP->new($site,
  Timeout => 60,
  debug => 1,
) or die "Connection failed to $site.\n";