$ perl -e'use Devel::LeakTrace::Fast; { my $x = []; }'
leaked SV(0x0x814ec28) from -e line 1
leaked SV(0x0x814ed84) from -e line 1

$ perl -e'use Devel::LeakTrace::Fast; { my $x = []; 1; }'

$ perl -e'use Devel::LeakTrace::Fast; { my $x = []; } 1;'

$

##</code><code>##

$ diff -u \
>    <( perl -MO=Concise,-exec -we'use Devel::LeakTrace::Fast; { my $x = []; }  ' 2>&1 ) \
>    <( perl -MO=Concise,-exec -we'use Devel::LeakTrace::Fast; { my $x = []; } 1' 2>&1 )
--- /dev/fd/63  2009-04-21 15:31:32.471371429 -0400
+++ /dev/fd/62  2009-04-21 15:31:32.475372857 -0400
@@ -9,4 +9,5 @@
 8  <0> padsv[$x:279,280] sRM*/LVINTRO
 9  <2> sassign vKS/2
 a  <2> leaveloop vK/2
+b  <;> nextstate(main 281 -e:1) v        <-- only difference
-b  <@> leave[1 ref] vKP/REFC
+c  <@> leave[1 ref] vKP/REFC

##</code><code>##

$ perl -e'use Devel::LeakTrace::Fast; { my $x = []; $x }'

$