$ perl
use warnings;
use constant TEST => 1;
use constant TEST => 1;