Select Code to Download

C:\Src\pl>perl TTC.pl
33:[1]
...
print() on unopened filehandle PREVIOUSCHAPTERS at TTC.pl line 56.
print() on unopened filehandle PREVIOUSCHAPTERS at TTC.pl line 66.
$Chapter[2]

#!/usr/bin/perl
use strict;
...
foo bar
foo bar baz