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