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