Select Code to Download

my $var;
while( $foo ) {
    # ...
    undef $var;
}

{
    my $var;
    while( $foo ) {
        # ...
    }
}