FIX: adapt to older perl