Perl : Two-argument open function usage