qwurx [shmem] ~ > echo foo > foo; echo bar >> foo;
qwurx [shmem] ~ > perl -ple 'BEGIN { close ARGV } print' foo
foo
bar

##</code><code>##

perl -ple 'BEGIN{close ARGV; binmode ARGV} s/foo/bar'