Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $num = 1234;
syswrite ( FH, $num );
close FH;

#include <stdio.h>
main() {
...
        fwrite( &num, sizeof(int), 1, fh);
        fclose( fh );
}