my $val = 10;

open my $fh, ">", "text.out" or die $!;
syswrite $fh, $val;