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