#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
local $Data::Dumper::Purity;
local $Data::Dumper::Useqq;
local $Data::Dumper::Deparse = 1;
local $Data::Dumper::Sortkeys = sub {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)]; 
};
use 5.010;
system('cls');

require Storable;
my %hin = (testkey => 'testvalue fuer den Key mit dem Code');

#
##
### SCHREIBEN
$Storable::Deparse = 1;
my $test = {
	test1		=> 2,
	test2		=> 4,
	test3		=> 5,
	test4		=> 6,
	codetest	=> sub {
		my ($input) = @_;
		return $input->{testkey};
	},
};
say Dumper($test);
say "Test des Codes: '".$test->{codetest}->(\%hin)."'";

eval { Storable::lock_store($test,'/xxxxxx/file.sto'); };

if ($@) {
    say "FEHLER beim speichern: '$@'"; exit;
}
else {
    say "wurde gespeichert";
}