#!/usr/bin/perl

use strict;
use warnings;

my $c;

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

use constant USAGEMSG => $c;
print +USAGEMSG;

__END__
What do you mean, too late?