my $m = myObjects->new( autostore => 1, file => '/tmp/messwerte.bin', lock => 1 );
$m->insert('2011-10-03', {ort => 'Oppenheim', temp => [12, 13, 25, 19]}) or die $m->errstr;
$m->insert('2011-10-04', {ort => 'Oppenheim', temp => [8, 12, 22, 18]});
my $werte = $m->getobject('2011-10-04');
print $werte->{ort}, "\n"; # Oppenheim
print join("\n", @{$werte->{temp}});