open(my $fh, ">", $ichs_logs) or die "Can't open $ichs_logs: $!";

##</code><code>##

my $db = DBI->connect("dbi:Oracle:prch", "User", "PW", {
  RaiseError => 1,
});