Select Code to Download

(my $line); # scoped outside of `while` block
while ($line = <>) {

}

while (my $line = <>) { # $line scoped only inside of `while` block

}