Das klingt so, als ob du ein Modul schreiben möchtest.
Ok, Modul. Aber die Variablen? Wie sollen sie angelget werden? Etwas so:
Textinits.pm
package Textinits;
require 5.6.0;
use CGI::Carp qw(fatalsToBrowser);
use strict;
#...
sub initTextVars () {
use constant VAR_A => setText (120, $_[0]); # in der Variable steht dann z.B. der Text "Guten Morgen!"
use constant VAR_B => setText (128, $_[0]); # in der Variable steht dann z.B. der Text "Guten Tag!"
};
oder so:
package Textinits;
require 5.6.0;
use CGI::Carp qw(fatalsToBrowser);
use strict;
#...
sub initTextVars () {
our VAR_A = setText (120, $_[0]); # in der Variable steht dann z.B. der Text "Guten Morgen!"
our VAR_B = setText (128, $_[0]); # in der Variable steht dann z.B. der Text "Guten Tag!"
};