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

my ($fileno) = @ARGV or die;

# Hiermit wird aus der Nummer des Dateideskriptors, die der Einfachheit halber ueber ARGV uebergeben wurde, wieder ein Perl-Dateihandle gemacht.
open my $f, '<&', $fileno or die $!;

my $line = <$f>;
die $! unless defined $line;
print "first line: $line";