use strict 'subs';

print count;   # an error with use strict 'subs'

sub count;     # prototyping count() is sufficient

print count;   # Not an error because Perl now knows about count()