#!/usr/local/bin/perl
# Jaime Prilusky, 2003
# dataDumperReader, reconstructs the data structure

  # read the data structure from the external file
  my ($buff,$chunk);
  open(IN,"dataDumperData");
  while (read(IN,$chunk,2000)) { $buff .= $chunk;}
  close(IN);

  # show the raw data from the external file
  print $buff,"\n";

  # recreate the structure from the text file
  eval $buff;

  #show what we have
  foreach $k (sort keys %days) {
    print "$k\t$days{$k}\n";
  }