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.
[download]

change

my @reqform = qw(var1 var2 var3); # quote them!
[download]

and add

my @errormsg;
[download]

alex pleiner <alex@zeitform.de>
zeitform Internet Dienste