#!perl
use strict;
use warnings;

my $str = "\0\0\1\o{257}\a\o{344}\0\3\0\0\0s\06\o{002}\o{267}";
my $data1 = unpack "N", substr($str,0,4);
print $data1;