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