use warnings;
use Cache::Memcached;
my $memd = new Cache::Memcached {servers => ["$host:$port"]};
my $stats = $memd->stats();

##</code><code>##

use warnings FATAL => 'all';

##</code><code>##

 $SIG{'__WARN__'} = sub { die $_[0]};