{
  my $ftp_remove = Net::FTP->new($ftpremove_host, Debug => 1);
  $ftp_remove->login($ftpremove_user, $ftpremove_pass);
  $ftp_remove->cwd($ftpremove_rootdir) or  die "Can't change directory ($ftpremove_rootdir):" . $ftp_remove->message;
  my $pwd_source = $ftp_remove->pwd;
  #print "$pwd_source\n";
  my @ftp_details = $ftp_remove->ls($pwd_source);
  foreach my $file (@ftp_details)
  {
    if ($ftp_remove->isdir($file) eq "1")
    {
        $ftp_remove->rmdir($file,1) or die "Can't remove directory ($file):" . $ftp_remove->message;
        print $ftp_remove->pwd." Removed folder $file\n";
    }
    else
    {
      $ftp_remove->delete($file);
      #print "Removed $file\n";
    }
  }
  $ftp_remove->quit();
}