perlprog[3]: syntax error at line 3: '(' unexpected