old perl compatibility