Select Code to Download

sub start {
...
    $tl->Button( -text => "B", -command => sub{ destroy $tl } )->pack;
}