added more more idiomatic (perl-wise) file handle example