#.... my $var = Package::sub; #.... # changed to #.... my $var; { local $_; $var = Package::sub; } #....