$ perl -cw 1230041.pl 
Can't find string terminator ")" anywhere before EOF at 1230041.pl line 17.