1*5759b3d2Safresh1use strict; 2*5759b3d2Safresh1use warnings; 3*5759b3d2Safresh1use Test::More; 4*5759b3d2Safresh1 5*5759b3d2Safresh1$@ = 'foo'; 6*5759b3d2Safresh1explain { 1 => 1 }; 7*5759b3d2Safresh1is($@, 'foo', "preserved \$@"); 8*5759b3d2Safresh1 9*5759b3d2Safresh1done_testing; 10