use File::glob;
use strict;
use Net::FTP;
use File::Copy;
use File::Path;
use File::Remove;

my $host_disco = "censored";
my $user_disco = "censored";
my $password_disco = "censored";
my $ftp_disco = "";
my $dir = "/";
my $diriq_disco = "/ep005/egate/client/iq";
my @iqfiles_disco = "";
my $file1 = "";
my @iqfolder_arr = "";
my $folder = "";
my $iqfolder = "";
my $folder1 = "";
my $count = 0;

#-------------------------

$ftp_disco = Net::FTP->new($host_disco) or die "Can't open $host_disco: $@\n";
$ftp_disco->login($user_disco, $password_disco) or die "Couldn't login: @{[ $ftp_disco->message ]}";
$ftp_disco->ascii();
$ftp_disco->cwd($dir) or die "Couldn't cwd to $dir: @{[ $ftp_disco->message ]}\n";
$ftp_disco->cwd($diriq_disco) or die "Couldn't cwd to $diriq_disco: @{[ $ftp_disco->message ]}\n";

@iqfolder_arr = $ftp_disco->ls;

foreach $folder1 (@iqfolder_arr)
{

  $iqfolder_arr[$count] =~ s/ //g;
  $iqfolder_arr[$count] =~ s/\n//g;
  $count++  }

foreach $folder (@iqfolder_arr)
{ 
 my $dirpath = '/ep005/egate/client/iq/';
 $dirpath .= $folder;
 print($dirpath);
 $ftp_disco->rmdir($dirpath) || die "FTP Message> @{[ $ftp_disco->message ]}\n";

}

$ftp_disco->close();

$file1 = "";
sleep(2);
print("Disco IQs have been cleared.\n");

#-----------------------------------#