Select Code to Download

my $cmds = $tl->Frame;
$cmds->pack;
    
...
         ->pack(-side => 'left');
}
$cmds->Button(-text => 'Cancel', -command => [$tl => 'destroy'])->pack
+(-side => 'left');

my @button = defined $idx ? (
    OK     => sub { &edit_entry($idx,$legentry); $tl->destroy; },
    Apply  => [\&edit_entry, $idx, $legentry],
...
          ->pack(-side => 'left');
    }
}

print SAVE <<END;
for (0..$#activity) {
    my ($legend,$time,$start,$end,$elapsed) = 
...
elapsed=$tsecs
END2
}

for (@activity) {
    print SAVE "[Button]\n";
    my $item;
    print SAVE "$item=" . $_->$item() for qw(legend time elapsed);
}