package Synchronizer;
use strict;
use File::Find;

#constructor
sub new {
    my ($class) = @_;
    my $self = {
        _myattribut => "",
    };
    bless $self, $class;
    return $self;
}

# Private Methode. (in Objekt (find) selbst aufgerufen)
sub _privmethode{
        ref(my $class = shift);
        my $myattribut = $class->{_myattribut};
        print $myattribut;
        ....
}       

sub synchronize{
        my $mref = $self->can('_privmethode');
        my $rfolder = "c:\";
        find ($mref, $rfolder);
        ....
}