http://www.perlmonks.org?node_id=762004

print unpack p,unpack$^V<5.01?P4:x12a4,unpack P16,pack L,\japh

Please tell your perl -v if it does not work for you. Update: thanks for reports, it should be fixed indeed.