Add an explicit return.

See Perl Best Practices and
http://perl-begin.org/tutorials/bad-elements/#explicit_return .