Select Code to Download

my $pms = join("\n", @foundfiles), "\n";

print  join("\n", @foundfiles), "\n";

$ perl -Mdiagnostics lory.pl
Useless use of a constant in void context at lory.pl line 17 (#1)
...
    a scalar context, the comma is treated like C's comma operator, wh
+ich
    throws away the left argument, which is not what you want.  See
    perlref for more on this.