$systempath = "$ENV{'PATH_TRANSLATED'}";
$systempath =~ s/(\\[a-z0-9]*\.cgi)$//g;
if ($&) {$extention = $&;} ## End if
$systempath =~ s/(\\[a-z0-9]*\.pl)$//g;
if ($&) {$extention = $&;} ## End if
$systempath =~ s/(\\[a-z0-9]*\.asp)$//g;
if ($&) {$extention = $&;} ## End if
$extention =~ /\./;
$extention = $';