$ perl -cw X.pm
Subroutine x redefined at /data/web/lib/X.pm line 3.
X.pm syntax OK