# If any of the above validation tests triggered the $kill flag... if ($kill == 1) { print "\n** GENPASS ERROR ---------------------------------------------------------"; print "\n** ".@errmsg." Error(s) found"; # display number of errors foreach my $err (@errmsg) { # display error messages print "\n".$err; } print "\n**\n** Type genpass --help for command usage\n"; print "** -----------------------------------------------------------------------\n\n"; exit(); # exit script }