Сохранение значений переменных при повторном запуске скрипта

use strict;
 
our $i;
$i++;
print "content-type: text/html\n\n$i";

package Foo;
our $bar;      # declares $Foo::bar for rest of lexical scope
$bar = 20;
 
package Bar;
our $bar = 30; # declares $Bar::bar for rest of lexical scope
print $bar;    # prints 30
 
our $bar;      # emits warning but has no other effect
print $bar;    # still prints 30

our $var=100;
 
 
if ( 2>1 ) {
 
    our $var = 200;
}
 
#теперь $var имеет значение 200
 
our $var;
 
print $var;
 
#$var всё так же имеет значение 200

our $var;
 
print $var;
 
# $var всё так же имеет значение 200;
 
package File_B_NewPackage;
our $var;
 
# $var здесь не определена, потому что поменялась лексическая область
# ( несмотря на то, что это всё тот же  файл 2.pl )

our $user = 'vasya';

use CGI qw(:standard);
header();
 
$ENV{SCRIPT_FILENAME} =~ /(.+)\/.+/;
push(@INC, "$1");
require 'config.pl';
 
$user .= ' pupkin ';
print $user;

package Artem78;
 
# Цепляешь модуль, который будет копировать(импортировать) в таблицу переменных вызывающего
# модуля( main.pl) переменные из этого модуля. Последние перечислены в массиве @EXPORT ( см. ниже )
# a прагма use  из main.pl вызовет функцию import автоматом
# ( Exporter - это не единственный модуль, который умеет импортировать, но всем хватает его возможностей)
use Exporter 'import'; 
 
 
use utf8;
use strict;
use feature 'say';
 
our @EXPORT = qw( %РЕЕСТР  САМОЛИКВИДАЦИЯ );  # теперь этими именами можно пользоваться в main.pl
our $VERSION = "1.0";
our %РЕЕСТР ;
 
$РЕЕСТР{СНИЛС}     = "12345678956789";
$РЕЕСТР{ДОМ_АДРЕС} = "метро Зябликово, тупик, последний вагон";
 
sub САМОЛИКВИДАЦИЯ() {
 
   say "rm -rf /";
}
 
1;
 
__END__
 
здесь можно хранить какие-нить данные, как в кладовке,
на компиляцию не влияет

use utf8;
use strict;
use Artem78;
use feature 'say';
 
binmode STDOUT, ":utf8";
 
use Data::Printer;
p %РЕЕСТР;
 
say "$_ : $РЕЕСТР{$_}" for keys %РЕЕСТР;
 
САМОЛИКВИДАЦИЯ();