in reply to perl open readonly question

The file will always be affected, but its better to use 3 arg open 
use autodie;
open my($fh), '<', '/path';

[download]
autodie does error checking for you

In Section Seekers of Perl Wisdom