open( my $fh, '>', "bar" ) or die "Can't write to bar: $!\n";