Newer perls need to explicitly use switch

As switch has reverted to being experimental
it needs to be explicitly declared to avoid
errors on later perl versions