>copy con file
foo
bar
^Z
        1 file(s) copied.

>perl -le"open my $fh, '>>', 'file' or die $!; seek $fh, 0, 0 or die $!; print $fh 'baz';"

>type file
foo
bar
baz