open(my $out, '>:raw', 'sample.bin') or die "Unable to open: $!";
print $out pack('s<',255) ;
close($out);