Bareword found where operator expected at /tmp/b.pl line 38, near "my$sth =$dbh->prepare("INSERT"
  (Might be a runaway multi-line "" string starting on line 37)
Semicolon seems to be missing at /tmp/b.pl line 38.
String found where operator expected at /tmp/b.pl line 39, near "print ""
        (Missing semicolon on previous line?)