$ perl -e 'open my $fh, ">>", "bar.txt" or die "can open file $!"; '