perlprog[3]: open: not found
perlprog[5]: =: not found
perlprog[7]: syntax error at line 7: ')' unexpected