$ echo -ne "foo\nbar\n" > file
$ cat file
foo
bar
$ perl -le'open my $fh, "+<", "file" or die $!; seek $fh, 0, 0 or die $!; print $fh "bazz";'
$ cat file
bazz
ar