#!/usr/bin/perl

use constant TEST => 1;
use constant TEST => 2;

print("TEST: " . TEST . "\n");