package sharedcache;

use strict;
my $cache;

sub store {
  $cache .= $_[0];
}

sub get {
  return $cache;
}

1;

##</code><code>##

tie %tempdb, 'SDBM_File', $databasefile, O_CREAT|O_RDWR, 0644;