Select Code to Download

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

    }
 closedir(DIR);

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