$ perl -E 'use strict; use warnings; { open my $fh, ">", "xxx"; } open my $fh, ">", "yyy"'
$