>perl -Mstrict -w -e 'opendir my $dir,"." or die "opendir: $!";close $dir or die "close: $!";'
close: Bad file descriptor at -e line 1.