#!/usr/bin/perl
    use strict;
    use warnings;

    my $directory = 'C:\Users\Anthony\music';

    opendir (DIR, $directory) or die $!;

while (my $file = readdir(DIR)) {

        print "$file\n";

    }
 closedir(DIR);
##</code><code>##

 $ grep "redeem reward" /home/tom/*.txt