$mw->after( 2000, ('configure', ($tree, -background => 'green') ) );

##</code><code>##

sub  method_name {
       my $self = shift;
       ...
}