Select Code to Download

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

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