Avoid stupid new perl warning for 'EOF'