Learning Perl slide (chapter 5 I/O)