updated to require perl 5.10.1, since I am using the '//' operator