handle_cache_info Subroutine

    subroutine handle_cache_info(custom_cache_dir)
        character(len=*), intent(in) :: custom_cache_dir
        character(len=1024) :: info

        call get_cache_info(custom_cache_dir, info)
        print '(a)', trim(info)
    end subroutine handle_cache_info