$ perl -e'open(X,"+>x.x") or die "cannot open x.x, error $!\n"; print X "Hi Mike!\n"; seek X,0,0; print X "No";'
$ cat x.x
No Mike!