fixed compatibility with older versions of Perl