package sharedcache;

use strict;
my $cache;

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

sub get {
  return $cache;
}

1;