#!/usr/local/bin/perl -w
# makehole.pl -- Erzeugt eine Datei mit einem Loch

use Fcntl;             # Wegen den O_*-Konstanten
use POSIX;             # Wegen SEEK_SET

sysopen(HOLE, shift, O_WRONLY | O_CREAT, 0666)
    or die "can't create file: $!\n";
syswrite(HOLE, "x", 1);
sysseek(HOLE, 1_000_000_000, SEEK_SET);
syswrite(HOLE, "y", 1);
close(HOLE);