OR,
add use autodie qw(open close); just after use warnings; in your script.
Your script should work fine, except you have other things in mind.
For detailed information check autodie

Cheers