Select Code to Download

# don't bother $_; use $source directly as loop variable
while ( my $source = <SOURCE> ) {
...

    # no other stuff here?
}