my $alt = {
	foo		=> 'bar',
	code	=> sub{
		my ($t) = @_;
		say $t;
	},
};
require Storable;
my $neu = Storable::dclone($alt);
say $neu->{code}->('Hallo Welt');