You may like to run the sample I provided and verify that it behaves as expected on your system. If it does, alter it until it doesn't then post the result and tell us how it fails your expectations. If it does, tell us how it fails your expectations and show us the versions of modules and Perl that you are using. The less we have to guess the more we can help with your actual problem.