#!/usr/bin/perl

require "sys/fcntl.ph";
open(TTY,"+>/dev/tty") || die "Can't open /dev/tty: $!\n";
fileno(TTY) == 3 || die "Internal error: fd mixup";
fcntl(TTY, &F_SETFL, 0)
    || die "Can't clear the close-on-exec flag: $!\n";
