package Store;
our $debug = 1 unless defined $debug;
our $scope = "$0.json" unless defined $scope;
our $data = {} unless defined $data;

sub _get() { <прочитать данные из файла $scope в переменную $data> }

sub _set() { <сохранить данные из переменной $data в файл $scope> }

sub new() { &_get(); }

sub DESTROY() { &_set(); }

sub data() {
  my $self = shift;
  while (my $arg = shift)
  {
    last unless ($arg);
    unless (ref $arg)
    {
      my $val = shift;
      $Store::data->{$arg} = $val;
      next;
    }
    if (ref($arg) eq 'HASH')
    {
      while (my ($k,$v) = each(%$arg))
      {
        $Store::data->{$k} = $v;
      }
      next;
    }
  }
  return $Store::data;
}

1;

use Store;
my $s = Store->new();
...
my $tag = $s->data->{'tag'};
my $ts = $s->data->{'ts'};
print "Tag $tag, last run: $ts\n";
$s->data(ts=>time());

use Store;
...
my $tag = $Store::data->{'tag'};
my $ts = $Store::data->{'ts'};
print "Tag $tag, last run: $ts\n";
$Store::data->{'ts'} = time();

BEGIN {
        print "***BEGIN\n";
}

END {
        print "***END\n";
}

print "***BODY\n";

print "1\n";
use Store;
print "2\n";
print Dumper($Store::data);
print "3\n";

***BEGIN
***BODY
1
2
{}
3
***END

print "1\n";
sub t {
use Store;
print "2\n";
print Dumper($Store::data);
}
print "3\n";
exit;
print "4\n";

***BEGIN
***BODY
1
3
***END