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

##</code><code>##

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