sub Tk::RotCanvas::meine_methode{
my $self = shift;
#tu was
}