different attempt at working with old perls