#!/usr/bin/perl
# script.pl
use strict;
use warnings;
use Fcntl;

open my $f, '<', '/etc/inittab' or die $!;

# Hiermit wird festgelegt, dass der Dateideskriptor von $f beim exec nicht geschlossen wird.
fcntl($f, F_SETFD, (~FD_CLOEXEC) & (fcntl($f, F_GETFD, 0))) or die $!;

exec('./script2.pl', fileno($f)) or die $!;