fd3.pl

#!/usr/bin/perl
use strict;
use warnings;

open my $fh, "<&=", 3
	or die "fd 3 not open!\n";
while (<$fh>) {
	chomp;
	printf("read '$_' from fd 3\n");
}