$ perl -w junk
Bareword found in conditional at junk line 4.
Terminating on signal SIGINT(2)