syntax fix for legacy perl