#!/usr/bin/perl
use strict;
use warnings;
use PersistentCounter;

my $file1 = 'storecounter1.bin';
tie my %h1, 'PersistentCounter', {-file => $file1, -increment => ['foo','bar']} or die $!;

my $file2 = 'storecounter2.bin';
tie my %h2, 'PersistentCounter', {-file => $file2, -increment => ['bam','bur']} or die $!;

print "H1\n";
foreach my $k (sort keys %h1)
{ print "$k => $h1{$k}\n"; }

print "H2\n";
foreach my $k (sort keys %h2)
{ print "$k => $h2{$k}\n"; }

tie my %h3, 'PersistentCounter', {-file => $file1} or die $!;

$h1{bar}++;
$h3{bar}++;

print "H3\n";
foreach my $k (sort keys %h3)
{ print "$k => $h3{$k}\n"; }