use Log::Easy qw ( log_level );
....
$log_obj = new Log::Easy; $log_obj->log_file("./psql_connector.log");
$log_obj->write(INFO, "Entering MessageLoop; starting operation.\n");