#!/usr/bin/perl -l

use warnings;
use strict 'refs';
require qw(slave);

no indirect 'fatal';
use Devel::SimpleTrace;
use Devel::SummarizedWarnings;

$slave::typo = "Hello, World!";
warn $slave;
print 
  pop(@Devel::SummarizedWarnings::LOGGED_WARNINGS) =~ /$slave/;