use POSIX ();

...
POSIX::close( $_ ) for 3 .. 1024; ## Arbitrary upper bound