Select Code to Download

while ( my $line = <$fh> ) {
    chomp $line;
...
    next unless $name eq $userName;
    ....
}