#!/usr/bin/perl

my $a = 5;

local $b = 4;