# pwd
/usr/local/src/samba-3.0.28

# find . -name \*.pl -exec perl -c '{}' \;
...
syntax error at ./examples/logon/genlogon/genlogon.pl line 49, near ")
{"
syntax error at ./examples/logon/genlogon/genlogon.pl line 52, near "}"
./examples/logon/genlogon/genlogon.pl had compilation errors.
...

# diff -u genlogon.pl.orig genlogon.pl
--- genlogon.pl.orig    Wed Jan  2 17:47:49 2008
+++ genlogon.pl Wed Jan  2 17:48:01 2008
@@ -45,7 +45,7 @@
 }

 # Connect shares just used by Administration staff
-If ($ARGV[1] eq "ADMIN" || $ARGV[0] eq "admin")
+if ($ARGV[1] eq "ADMIN" || $ARGV[0] eq "admin")
 {
        print LOGON "NET USE L: \\\\$ARGV[2]\\ADMIN\r\n";
        print LOGON "NET USE K: \\\\$ARGV[2]\\MKTING\r\n";