% cat >foo
print "hello, world\n"
^D
% cat foo | perl
hello, world