{
    my $count;

    sub add_button {
        ...
        $count++;
        ...
    }
}