# Program 1 use Cache::FileCache; my $cache = new Cache::FileCache({ 'namespace' => 'SharedCache', 'default_expires_in' => 600 } ); my $passed_data = "This is a passed string"; $cache->set( "Data", $passed_data, "10 minutes" ); #### #Program 2 use Cache::FileCache; my $cache = new Cache::FileCache( { 'namespace' => 'SharedCache', 'default_expires_in' => 600 } ); my $passed_data = $cache->get("Data"); print "$passed_data\n";