use POSIX ();

printf "Attempting to close fid %d : %s\n",
    POSIX::close( $_ ) ? 'success' : 'failure'
    for 3 .. 255;