DBD:ODBC issue - ODBC Error - Invalid Cursor State (SQL-24000)

#!/usr/bin/perl
 
use DBI ;
 
my $dbh = DBI->connect("DBI:ODBC:$DSN",$user,$passwd) or die "Can't connect to $DSN: $DBI::errstr" ;
 
#$dbh->{odbc_sql_rowset_size} = 2;
#$dbh->{odbc_SQL_ROWSET_SIZE} = 2;
#$dbh->{SQL_ROWSET_SIZE} = 2; 
#$dbh->{sql_rowset_size} = 2; 
#$dbh->{odbc_exec_direct} = 1;
#$dbh->{odbc_cursortype} = 2;
 
$dbh->do("use $database");
 
my $sql = qq/SELECT StationNum, ObservTimes, StationPress, DryBulTemp, RelHumidity FROM tabTimeData /;
$sql .= qq/ WHERE StationNum= ? /;
$sql .= qq/ AND ( ObservTimes >= ? AND ObservTimes <= ?) / ;
$sql .= qq/ ORDER BY ObservTimes ASC/ ; 
 
my $sth1 = $dbh->prepare($sql) or die "Can't prepare statement: $DBI::errstr";
 
$sql = qq/SELECT StationNum, ObservTimes, StationPress, DryBulTemp, RelHumidity FROM tabRealTimeData /;
$sql .= qq/ WHERE StationNum= ? /;
$sql .= qq/ AND ( ObservTimes >= ?  AND ObservTimes <= ?) / ;
$sql .= qq/ ORDER BY ObservTimes ASC/ ;
 
my $sth2 = $dbh->prepare($sql) or die "Can't prepare statement: $DBI::errstr";
 
$sth1->execute(($SN,$sEPOCH,$eEPOCH)) ;
 
while ( my @row00 = $sth1->fetchrow_array ) {
 
	my ($STID,$EPOCH,$P,$T,$U) = @row00;
 
	print "$STID\t$EPOCH\t$P\t$T\t$U\n";
 
	$sth2->execute(($SN,${sEPOCH}.'00',${eEPOCH}.'59')) ;
 
	while ( my @rownn = $sth2->fetchrow_array ) {
 
	        ($STID,$EPOCH,$P,$T,$U) = @rownn;
		print "$STID\t$EPOCH\t$P\t$T\t$U\n";
	}
 
	$sth2->finish;
}
 
$sth1->finish;
$dbh->disconnect if ($dbh) ;
 
exit(0);