$sql = qq{select top 1 * from archiv };
	$sth = $dbh->prepare( $sql );
	$sth->execute();
	$sth->{'LongTruncOk'} = 1;
	while (@row = $sth->fetchrow_array())
	{
		
		print "| Inhalt = ".$row[1]."\n";		
		
	}
	$sth->finish();