#!/bin/perl
use POSIX;
use FileHandle;
use integer;
autoflush STDOUT 1;

$data = '';

vec($data, 0, 8) = 10;

print $data;
