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

}