use Fatal qw( open ); # Because I'm lazy open FILE, "one"; print scalar(); { local *FILE; open FILE, "two"; print ; close FILE; } print ; close FILE;