local %ENV = %ENV;
$ENV{TERM} = 'vt220';

##</code><code>##

{
    local $ENV{TERM} = 'vt220';
    `/usr/sbin/iptraf -s eth0 -B -L some.log`;
}

##</code><code>##

my %letters = 'a'..'h';
my @nums = 0..8;
{
  local $letters{'c'}; delete $letters{'c'};
  local $nums[4];      @nums = ();
}
use Data::Dumper;
print Data::Dumper->Dump (
  [\%letters, \@nums],
  ['letters', 'nums']
);
__END__
$letters = {
             'e' => 'f',
             'c' => 'd',
             'a' => 'b',
             'g' => 'h'
           };
$nums = [
          undef,
          undef,
          undef,
          undef,
          4
        ];