String found where operator expected at crapd line 4, near "or warn (""
  (Might be a runaway multi-line "" string starting on line 3)
        (Missing semicolon on previous line?)
Bareword found where operator expected at crapd line 4, near "or warn ("Can't"
        (Do you need to predeclare or?)
Backslash found where operator expected at crapd line 4, near "$fname\"
        (Missing operator before \?)
String found where operator expected at crapd line 5, near "} elsif ( -e ""
  (Might be a runaway multi-line "" string starting on line 4)
        (Missing semicolon on previous line?)
Scalar found where operator expected at crapd line 5, near "} elsif ( -e "$arcdir"
        (Missing operator before $arcdir?)
Scalar found where operator expected at crapd line 6, near "copy ("$arcdir"
  (Might be a runaway multi-line "" string starting on line 5)
        (Do you need to predeclare copy?)
Scalar found where operator expected at crapd line 6, near "", "$procdir"
        (Missing operator before $procdir?)
String found where operator expected at crapd line 7, near "or warn (""
  (Might be a runaway multi-line "" string starting on line 6)
        (Missing semicolon on previous line?)
Bareword found where operator expected at crapd line 7, near "or warn ("Can't"
        (Do you need to predeclare or?)
Backslash found where operator expected at crapd line 7, near "$fname\"
        (Missing operator before \?)
String found where operator expected at crapd line 9, near "print (""
  (Might be a runaway multi-line "" string starting on line 7)
        (Missing semicolon on previous line?)
Bareword found where operator expected at crapd line 9, near "print ("NOT"
        (Do you need to predeclare print?)
Bareword found where operator expected at crapd line 9, near "$fname in"
        (Missing operator before in?)
Backslash found where operator expected at crapd line 9, near "in \"
        (Do you need to predeclare in?)
Scalar found where operator expected at crapd line 9, near "/$month/$month"
        (Missing operator before $month?)
String found where operator expected at crapd line 9, at end of line
        (Missing semicolon on previous line?)
syntax error at crapd line 1, near "perl -c"
Can't find string terminator '"' anywhere before EOF at crapd line 9.