script to demonstrate perl bug