my $file = 'd:/tmp/numbers.bin';
tie my $nr1, 'Number', (-file => $file, -key => 'foo') or die $!;
tie my $nr2, 'Number', (-file => $file, -key => 'bar') or die $!;
print "$nr1 $nr2\n";