Select Code to Download

$ perl -E'
    open(my $fh, ">", "file") or die $!;
...
    }
'
Error: Bad file descriptor

$ perl -MIO::Select -E'
    open(my $fh, ">", "file") or die $!;
...
    }
'
Error: Bad file descriptor