Select Code to Download

while (<$FH>) { 
  print; # prints the current line using $_ implicitly
}

while ( my $filename = readdir(DH) ) {
  next if $filename eq '.' or $filename eq '..';
...
    close FH or die "close: $!\n";
  }    
}

if ( -f 'The Bravery-Believe.txt' ) {
  # do something
}

my $wanted = 'The Bravery-Believe.txt';

...
    
}