make it work on non perl 5.8