BEGIN {
     $c = <<USAGE;
What do you mean, too late?
USAGE
}
use constant USAGEMSG => $c;