use autodie;
open my($fh), '<', '/path';