Select Code to Download

use Fcntl;
my $flags = fcntl $in, F_GETFD, 0 or die "fcntl F_GETFD: $!";
fcntl $in, F_SETFD, $flags & ~FD_CLOEXEC or die "fcntl F_SETFD: $!";

This is perl 5, version 18, subversion 1 (v5.18.1) built for MSWin32-x
+64-multi-thread

#!/usr/bin/perl
use v5.14;
...
    exec( 'perl', './fd_get.pl', $fd )
        or die "Could not exec: $!\n";
}

#!/usr/bin/perl
use v5.14;
...
}

close $in;