Scalar found where operator expected at ./test.pl line 74, near "$sth1= $th_dbh->prepare($query) or die "$DBI::errstr"
  (Might be a runaway multi-line "" string starting on line 73)
        (Missing operator before $DBI::errstr?)
Backslash found where operator expected at ./test.pl line 74, near "$DBI::errstr\"
        (Missing operator before \?)
String found where operator expected at ./test.pl line 76, near "$ds = $sth1->execute or die ""
  (Might be a runaway multi-line "" string starting on line 74)
        (Missing semicolon on previous line?)
Scalar found where operator expected at ./test.pl line 76, near "$ds = $sth1->execute or die "$DBI::errstr"
        (Missing operator before $DBI::errstr?)
Backslash found where operator expected at ./test.pl line 76, near "$DBI::errstr\"
        (Missing operator before \?)
String found where operator expected at ./test.pl line 86, near "print ""
  (Might be a runaway multi-line "" string starting on line 76)
        (Missing semicolon on previous line?)
Scalar found where operator expected at ./test.pl line 86, near "print "$stext"
        (Do you need to predeclare print?)
syntax error at ./test.pl line 70, near ")
                  {"
Global symbol "$stext" requires explicit package name at ./test.pl line 71.
syntax error at ./test.pl line 74, near "$sth1= $th_dbh->prepare($query) or die "$DBI::errstr"
Global symbol "$stext" requires explicit package name at ./test.pl line 86.
Unrecognized character \xFC at ./test.pl line 86.