or download this
$ cat testpolicy.pl
#!/usr/bin/env perl
...
Fat comma used in declaration at line 5, column 9. You probably meant
+ "=" instead of "=>". (Severity: 4)
Fat comma used in declaration at line 6, column 10. You probably mean
+t "=" instead of "=>". (Severity: 4)
Fat comma used in declaration at line 7, column 10. You probably mean
+t "=" instead of "=>". (Severity: 4)