#!/usr/bin/perl

use strict;
use Cache::FileCache;

my $c = new Cache::FileCache({'namespace'=>"foo"});
warn "Previous PID: " . $c->get("pid");
$c->set("pid"=>$$);
warn "This PID: " . $c->get("pid");