#!/usr/bin/perl
use strict;
use warnings;
require 'sys/syscall.ph';

my $file = 'foobar';
my $buffer;

open my $f, '<', \$file or die "open: $!";
defined read($f, $buffer, 10) or die "read: $!";
syscall(&SYS_write, fileno(STDERR), $buffer, 10) != -1 or warn "write: $!";
print STDERR "\n";
defined read($f, $buffer, 1) or die "read: $!";