Hi perl -le "s==*F=e=>y~\*martinF~stronat~=>s~^\w~~g=>chop,print", What happens is that everything still seems fine until it reaches the below section. Then it cycles through the while indefinetly, BUT skips the print line for every cycle. That is probably because the $key is empty. Now the wierd thing is why does it cycle indefinetly when there is only one record in that table that matches and why doesn's that single record get printed? I think the problem could be with the setup of the oracle river and DSN on my client, but since I haven't done that before either then it's kind of a mess. Any ideas?

while ($db->FetchRow){                #<-Cycles indefinetly
  my %line = $db->DataHash();
  foreach my $key (sort keys %line){
    print "$key = $hash{$key}\n";     #<-Skips every time
  }
  print "\n";
[download]