my $fh = FileHandle->new;
open ($fh, '<', $filename) or die 'missing file';
binmode $fh, ':raw';
my @values = unpack 'S<', $fh;
print @values;