perl -e'use constant TEST => 1; use constant TEST => 1'