use strict;
$@ = 'foo';
explain { 1 => 1 };
is($@, 'foo', "preserved \$@");
done_testing;