#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(escapeHTML);
use Data::Dumper;
use Date::Calc qw( Today_and_Now  );

use lib '..'; # Add private library to path
use DBStuff; ####>>>>>>>>>>>>>> This is my line 10
use MyLib::Log qw(do_log);


if ($@) {
  warn "Cron job failed: $@\n";
}

my $q = new CGI;

$| = 1;

BEGIN
 {
  
  my $log_error = 'error.txt';
  use CGI::Carp qw(carpout);

  # Send all warnings to the log_file
  open STDERR, '>>', $log_error;
 }

...