or download this
perl -c 1045909.pl
Scalar found where operator expected at 1045909.pl line 16, near "$rea
+dingbooks$_"
(Missing operator before $_?) # ie, Ln beginning '$rdbooks = $read
+ingbooks$_;'
...
Global symbol "$catdate" requires explicit package name at D:\_Perl_\P
+Monks\1045909.pl line 22.
syntax error at 1045909.pl line 22, near "$catdate$_"
1045909.pl had compilation errors.