$ perl -w
use constant TEST => 1;
use constant TEST => 1;