Can' find the log Padre file


##</code><code>##

Line 30 use manageusers qw($LoggedOn_user_id);

{
use strict; use warnings; 
my %wanted; 
$wanted{manageusers}=1; 

for my $inc (@INC) { 
  opendir (my $dh,$inc) || warn "Can't opendir $inc: $!";
  while (my $file=readdir $dh) {
    if ($file=~m/(.*)[.]pm$/) { 
      if ($wanted{$1}) { warn 'found:'.$inc.'/'.$file; } 
      }
    } 
  closedir $dh;
  }
}

##</code><code>##

        manageusers::OpenConnection();
           manageusers::OpenConnection();
        manageusers::OpenConnection();
                manageusers::OpenConnection();
          manageusers::OpenConnection();
           manageusers::OpenConnection();
                manageusers::OpenConnection();
manageusers::OpenConnection();
manageusers::OpenConnection();
  manageusers::OpenConnection();

##</code><code>##

#-------------------------------------------------------------------------------
#  Database Conection Functions
#-------------------------------------------------------------------------------
# FUNCTION:  OpenConnection()
# DESCRIPTION: Connect to the MySQL database
#-------------------------------------------------------------------------------
sub OpenConnection
{
    my $localtimenow = localtime(Now());
    $dbh = DBI->connect($dsn,$sql_username,$sql_password)
		or ErrorMessage("Could not connect to the database.");

    warn("Open Connection-JustBefore returning database handle: '$dbh' Current Time: '$localtimenow'");
   return $dbh;
}

##</code><code>##

New login
warn("Hash evaluation succeded - $passhash = $passhash1 : $sessiondata2 = $sessiondata2md5p");
       my $timein = time();
       $session->param('user_id',$uid);
       $session->param('username',$username);
       $session->param('forename', $forename);
       $session->param('lastname', $lastname);
       $session->param('timein', $timein);
       $session->param('timeout', 0);
       $session->param('attempts',0);
       $session->param('isloggedin',1);
       $session->expires('+7d');
       $LoggedOn_user_id = $uid;  #$session->param("user_id");

##</code><code>##

Already logged on
  if ($status == 1) {
    warn("Process Login returning after confirmed already logged in: status: '$status' sessionname:  '$sessionname' SID:  '$sid'");
	
    my $username1 = $session->param("user_id");
    warn("username1 : '$username1'");
    $LoggedOn_user_id = $username1;  
    warn("Already logged on LoggedOn_user_id : '$LoggedOn_user_id'");