fixed two-argument open(), thanks Perl::Critic