package Local::Unused;
use strict;
my $foo;
sub bar {
my $unused;
my $one;
my $two;
my $three;
my $four = 4;
}
1;