#!/usr/bin/perl
$num=pack( 'L>',120000);
#$buf="Pear";
$buf="\x00\x00\x00\x01$num\xff\xff\xff\xff\x00\x00\xff\xffPear";
print "Test data:\t$buf\n";
#$buf=[hex('00'),hex('00'),hex('00').hex('01')];
#$buf="ABCDEF";
#my @data = unpack('L>*', $buf);

@values=unpack "L>*", $buf;		# < or > specifies endianness
#print $values;
 foreach my $val (@values) {
    print "$val\n";
  }