X:\>perl 1203732.pl
Number found where operator expected at 1203732.pl line 2, near "2"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 9, near "9"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 12, near "12"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 19, near "19"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 20, near "20"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 21, near "21"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 23, near "23"
        (Missing semicolon on previous line?)
Number found where operator expected at 1203732.pl line 25, near "25"
        (Missing semicolon on previous line?)
Bareword found where operator expected at 1203732.pl line 25, near "* Printing to"
        (Missing operator before to?)
Having no space between pattern and following word is deprecated at 1203732.pl line 27.
Warning: Use of "log" without parentheses is ambiguous at 1203732.pl line 27.
syntax error at 1203732.pl line 2, near "2"
"use" not allowed in expression at 1203732.pl line 2, near "2 "
"use" not allowed in expression at 1203732.pl line 3, near "3 "
"use" not allowed in expression at 1203732.pl line 4, near "4 "
"use" not allowed in expression at 1203732.pl line 5, near "5 "
"use" not allowed in expression at 1203732.pl line 6, near "6 "
"use" not allowed in expression at 1203732.pl line 7, near "7 "
Substitution pattern not terminated at 1203732.pl line 35.

X:\>