Compatible with perl 5.8