# Inside your script:
package Cache::Memcached;
use warnings FATAL => 'all';

package main;
[...]

##</code><code>##

my $stats = eval {
    local $SIG{'__WARN__'} = sub { die };
    $memd->stats();
}
if ($@) {
    # No stats!!
    [...]
}