$ perl -E 'open my $fh, ">", "xxx"; close $fb; open my $fh, ">", "yyy"'
$