# Depot.pm, ein Test-Modul
package Depot; 
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(deposit retrieve); 

my %bunker;          # Privatvariable

sub deposit
  {
  my ($key, $val) = @_;
  $bunker{$key} = $val;
  }

sub retrieve
  {
  return $bunker{$_[0]};
  }

return 1;