$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 = $';

##</code><code>##

BEGIN {
  if (($^O eq 'MSWin32') || defined($ENV{'OS'})) {
    ##### Get ENV
    unless ($ENV{'PATH_TRANSLATED'} || $ENV{'SCRIPT_FILENAME'}) {
      $aspmode = 1;
      $ENV{'PATH_TRANSLATED'} = $Request->ServerVariables('PATH_TRANSLATED')->item;
      $ENV{'SCRIPT_FILENAME'} = $Request->ServerVariables('SCRIPT_FILENAME')->item;
    } ## End unless
    $operatingsystem = 0;
    $osstring = "Win32 - NT, 2000, 2003";
    $operatingsystemoldnt = 0;
    $systempath = "$ENV{'PATH_TRANSLATED'}";
    unless ($systempath) {
      $systempath = "$ENV{'SCRIPT_FILENAME'}";
    } ## End unless
    $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 = $';
#    $operatingsystemoldnt = 1;
#    $slash = '\\';
    $slash = '/';
  } ## End if
  else {
    $operatingsystem = 1;
    $osstring = "Unix - Linux";
    $systempath = "$ENV{'SCRIPT_FILENAME'}";
    $systempath =~ s/(\/[a-z0-9]*\.cgi)$//g;
    if ($systempath =~ /cgiwrap/) {
      $systempath = "$ENV{'PATH_TRANSLATED'}";
      $systempath =~ s/(\/[a-z0-9]*\.cgi)$//g;
    } ## End if
    $slash = '/';
  } ## End else
## $systempath = "systempath to your folder"; ## Enter the correct value and un-comment this if you are having system path detection problems
  push (@INC, "$systempath");
} ## End BEGIN