C:\Documents and Settings\guest\Desktop>perl dark.pl
Bareword found where operator expected at dark.pl line 20, near "&survey them"
        (Missing operator before them?)
syntax error at dark.pl line 20, near "open "
Execution of dark.pl aborted due to compilation errors.