$ perl -l
use strict;
use warnings;

use constant ERR => "Error in program";

sub func {
   return ERR;
}

print func();

__END__
Error in program