I'm puzzled that you say, it works, as I get errors:
Global symbol "@reqform" requires explicit package name at test017.pl
+line 16.
Global symbol "@reqform" requires explicit package name at test017.pl
+line 21.
Global symbol "@errormsg" requires explicit package name at test017.pl
+ line 22.
Global symbol "@errormsg" requires explicit package name at test017.pl
+ line 22.
Global symbol "@errormsg" requires explicit package name at test017.pl
+ line 24.
Global symbol "@errormsg" requires explicit package name at test017.pl
+ line 34.
Bareword "var1" not allowed while "strict subs" in use at test017.pl l
+ine 16.
Bareword "var2" not allowed while "strict subs" in use at test017.pl l
+ine 16.
Bareword "var3" not allowed while "strict subs" in use at test017.pl l
+ine 16.
test017.pl had compilation errors.
change
my @reqform = qw(var1 var2 var3); # quote them!
and add
my @errormsg;
alex pleiner <alex@zeitform.de>
zeitform Internet Dienste