old perl compatibility (2)