#! /usr/bin/perl -w

open(FILE, "<A20120420.1257+0100-1302+0100_group0.bin");

binmode(FILE); 

my $headder = <FILE>;

($headderRecordId, $fileFormatId, $timeStamp, $noOfBSCs, $specOfBSCs) = unpack ("H2 H2 H16 H2 H*", $headder);