sub seive_until_remove_filter
{
   my ($relay, $relay_dir, $filename, $home_dir, @lock) = @_;
   ...
   foreach my $filelock ( @lock )
   {
      ...
      if ( my $ftp = Net::FTP->new($filelock))
      {
         ... ## delete some "flag" file(s) from some path
      }
      else
      {
         sieve_util_generic_error ("Unable to login to $relay.");
      }
      ...