Select Code to Download

# Inside your script:
package Cache::Memcached;
...

package main;
[...]

my $stats = eval {
    local $SIG{'__WARN__'} = sub { die };
...
    # No stats!!
    [...]
}