PERL-SCRIPT АРХИВАЦИИ ДАННЫХ ФАБИУС