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

open my $f, '</dev/null' or die "open: $!";
syscall(&SYS_write, 2, $f, 10) != -1 or warn "write: $!";
print STDERR "\n";
defined read($f, my $waste, 1) or die "read: $!";