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

##</code><code>##

$ ls -l bar*
-rw-r--r-- 1 Laurent None 0 20 Aug  23:05 bar.txt