It does not work in Perl 5.8 due to use of < in packs