perldoc -q "append to the beginning of a file"