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

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

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

##</code><code>##

#include <stdio.h>
main() {
        FILE *fh;
        int num = 1234;

        if(( fh = fopen( "junkc.dat", "w" ) ) == NULL ) {
                printf ("Cannot open it\n");
                exit();
        }
        fwrite( &num, sizeof(int), 1, fh);
        fclose( fh );
}