You're checking $! without checking whether the open() failed! From the documentation:

This means that the value of $! is meaningful only immediately after a failure:

if (open(FH, $filename)) {
    # Here $! is meaningless.
[download]

Liz