#!/usr/bin/perl
use strict;
use warnings;
use vars qw ($PackageVar);

use B::Deparse;
my $deparse = B::Deparse->new("-p", "-sC");
my $body = $deparse->coderef2text(\&ltest);
print $body;

##########################
sub ltest { 
	$PackageVar = 0;
	for(1..10){
		local $PackageVar = 0;
		print ++$PackageVar,"\n";
	}

}

__END__
# Says B:Deparse
{
    ($PackageVar = 0);
    foreach $_ (1 .. 10) {
        (local $PackageVar = 0);
        print((++$PackageVar), "\n");
    }
}