Select Code to Download

  for (glob "*.txt") {
      my $lsoutput = qx(ls -l $_);
...
          print "File matches current username.\n";
      }
  }

  for (glob "*.txt") {
      open my $lsfh, "-|", 'ls', '-l', $_
...
          }
      }
  }