our $updates;
sub Updated {
   $updates++;
}
sub DoSomething {
    ...
    Updated();
}