Select Code to Download

#!/usr/bin/perl

...
{
  print "Equal\n";
}

Bareword found where operator expected at /tmp/test line 3, near "'A' 
+EQ"
        (Missing operator before EQ?)
...
        (Do you need to predeclare EQ?)
syntax error at /tmp/test line 3, near "'A' EQ "
Execution of /tmp/test aborted due to compilation errors.