Select Code to Download

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

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