sub ucase {
	local($s1) = @_;
	$s1 =~ tr/[a-z]/[A-Z}/;
 return $s1;
}

##</code><code>##

$chk =~ /(.*@.*\.[a-zA-Z]{2,3}$)/ && $chk !~ /(^\.)|(\.$)|( )|(\.\.)|(@\.)|(\.@)|(@.*@)/

##</code><code>##

sub readem {
        local $insFile = shift; local $back = "";
    if (open(FL, "<$insFile")) {
        while (<FL>) {$back .= $_;}
    close(FL);    } else {&showErr('Fatal File Read Error');}
    return $back;
}

##</code><code>##

	@pairs = split(/&/, $query_string);
	foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$name =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$value =~ s/~!/ ~!/g;
		$name =~ s/~!/ ~!/g;
		$value =~ s/<([^>]|\n)*>//g if $name ne "comtext" && $name ne "ONld" && $name ne "edstext" && $name ne "mtxt"; 
		$name =~ s/<!--#(.|\n)*-->//g;
		$value =~ s/<!--#(.|\n)*-->//g;
		$value =~ s/("|')//g if $name ne "comtext" && $name ne "ONld" && $name ne "edstext" && $name ne "mtxt";
		$value =~ s/(`|\0|\\[^\\n])//g;
		$name =~ s/(`|\0|\\)//g;
	$FORM{$name} = $value;
	}

##</code><code>##

sub date_time {
    my($s1) = @_;
    my($mon,$year);
   ($mon,$year) = (gmtime($s1))[4,5];
    $mon++;
    if ($year < 39) { $year = "20$year" }
    elsif ($year > 99 && $year < 2000) { $year = 2000 + ( $year - 100 ) }
    elsif ($year > 38) { $year = "19$year" }
   return ($mon,$year);
}

##</code><code>##

$datetime = &date_time(&date_time(0));