# ######################################################################################## #
#    remote test -d
# ######################################################################################## #

    sub rchkdir
    {
        my $self = shift;
        my $file = $_[0];
        my @list = $self->{'ftpcon'}->dir ($file);
        my $exists = 0;
        
        foreach (@list)
        {
            if (/$file/)
            {
print ("Is dir!\n");

               
 $exists = 1;
            }
        }
        
        return $exists;
    }