my $dbh = DBI->connect(
    "dbi:SQLite:$dsn", '','', { RaiseError => 1, AutoCommit => 0 }
  ) or die "$DBI::errstr\n";

##</code><code>##

>dprofpp tmon.out
Modification of non-creatable array value attempted, subscript -1 at C:\Perl\bin/dprofpp.bat line 717, <fh> line 1250.