my($dismiss) = $root->Button (
                -text => 'dismiss window',
                -command => sub{ $message->destroy; command();}
        );