Example of disabling switch warnings in perl >= 5.18