memtaint.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

use Cache::Memcached::Fast;
use Devel::Peek;

my $mc = Cache::Memcached::Fast->new( { servers => ['127.0.0.1:11211'] });

my $v=[$ENV{PATH}];

Dump($v->[0]);

$mc->set("taint", $v);

Dump($v->[0]);

Dump($mc->get("taint")->[0]);