Replace 'EOF' by 1 to avoid stupid new perl warning