my $perl = "package Data;\nour %data = (\n";
  my $sth = $dbh->prepare('select key,value from data');
  $sth->execute();
  while (my ($key,$value) = $sth->fetchrow_array())
  {
    $perl .= "\t$key\t=>'$value',\n";
  }
  $perl .= ");\n1;\n";
  open my $fh, '>', 'Data.pm';
  print $fh $perl;