Perl 5.18 compatible