Better, also, to check your opens.
See perldoc -f die or Super Search for nodes where "open" and "test" both occur.