my $dbh = DBI->connect( $conn,$user,$pass) || die "Keine Verbindung zur Datenbank"; 
my $sql = "SELECT count(netzgebiet) FROM tmp_report"; 
my $sth = $dbh->prepare($sql); 
$sth->execute(); 

@row = $sth->fetchrow_array; 

if(@row == 0 ){ 
    print TRANSLATE "\nTrue: "; 
        print TRANSLATE @row; 
} 
else { 
    print TRANSLATE "\nFalse: "; 
        print TRANSLATE @row; 
}