#! /usr/bin/perl -l

use strict ;

open IN,"<my_bin_file" ;
binmode IN ;

my $binrec ;
read IN, $binrec, 52 ;

print "value is ".unpack("x20 I", $binrec) ;
close IN ;