#! /usr/local/bin/perl -Tw

my $x = 1;

no_can_do();

sub no_can_do {
    local $x = 2;
}