#!/usr/bin/perl -w

print unpack "L", pack "H*", "B65B7B4000";