use strict;
use warnings;
my $foo = 12345;
$foo = pack "l", $foo;
open my $FH, '>', "foo.bin";
binmode($FH);
print $FH $foo;
close $FH;