use strict;
use warnings;

use Devel::Carnivore;

my $h;
{
	my %h : Watch('%h');

	$h{fname} = "Foo";
	$h = \%h;	
}
$h->{lname} = 'Bar';

unwatch $h;

$h->{email} = 'foo@bar.com';