sub TIEARRAY{
	my $class = shift;
	my $ref = shift; 
	my $self = $class->new;
        return if $@;
	
	if(exists $ref->{url}){
		my $q = q(SELECT ref, FROM_UNIXTIME(ts), hugo FROM log WHERE url=? ORDER BY ts DESC LIMIT 10);
		my $st = $self->{DBH}->prepare_cached($q);
		eval{
			$st->execute($ref->{url});
			$self->{STH} = $st;             # Statement Handle an Objekt
			$self->{CB} = $ref->{callback}; # Callbackfunktion an Objekt
		};
		return if $@;
	}
	return $self;
}