use POSIX qw[ close ];

...
POSIX::close( $_ ) for 0 .. 255;