fixed sub declaration to work on older versions of perl on rhel5