#!/usr/bin/perl -w
use strict;

open( FH, ">junk.dat" ) or die "dang it!\n";

my $num = 1234;
syswrite ( FH, $num );
close FH;