while (<FOO>){print $_;}
print FOO "hi";