sub new_counter {
    my ($count) = @_;

    ...
}