#!/usr/bin/perl --
use strict;
use warnings;
use autodie qw/ open close /;
use threads stack_size => 4096;
open FOO, '<', __FILE__ or die $!;
if( @ARGV ){
#~     threads->create(sub { use autodie qw/ close /; close FOO; })->detach;
    threads->create(sub {
        close FOO;
    })->join;
    threads->create(sub {
        close FOO;
        ## close FOO; ## this one autodies, "terminated abnormally:"
        eval { close FOO; 1 } or warn $@;
        return;
    })->join;
    close FOO;
    close FOO; ## this one autodies
} else {
    close FOO;
    close FOO;    ## this one autodies
}
__END__
$ perl threads-close-filehandle.pl
Can't close filehandle 'FOO': 'Bad file descriptor' at threads-close-filehandle.pl line 22

$ perl threads-close-filehandle.pl 1
Can't close filehandle 'FOO': 'Bad file descriptor' at threads-close-filehandle.pl line 15
Can't close filehandle 'FOO': 'Bad file descriptor' at threads-close-filehandle.pl line 19