use DBI; 
$db = "kat1";
$host = "localhost";
$user = "root";
$password = "";


my $dbh = DBI->connect("DBI:mysql:database=$db:host=$host",$user,$password)
     or die "can not connect $DBI::errstr\n";


#--------sql-abfrage------------------

$sql = "Select MainContent from kat1 where id<30";
my $sth = $dbh->prepare($sql);
$sth->execute();


 
  $anz=1;
  $file="$anz.txt";
  #my @files = (<*.txt>);
  
  @dbinhalt=("");       #Speicher für alle datensaetze
  @datensaetz=("");      #Speicher für einen datensaetz
  $content="";        #speicher für inhalt
  $i=0;

    
    while( my @dbinhalt = $sth->fetchrow_array())
    {
        
        
        #printf "CONTENT: @zeile\n",$zeile[0];
        for(@dbinhalt)
        {
                
                open(DATEI, ">$file") || die "Kann $file nicht öffnen";
                #print DATEI "$_";
                print DATEI "$dbinhalt[0]";
                close(DATEI) || die "Kann $file nicht schließen";
                $dbinhalt++;
                $anz++;
            }
            
    }
  
#----db_verbindung sauber beenden-------------------------
$sth->finish ();#ergebnismenge schliessen
$dbh->disconnect();#verbindung zum server schliessen
 exit();