Select Code to Download

my @files = grep !/^\.\.?/ && /.*pm$/, readdir DIRH;

my @files = grep /\.pm$/, readdir DIRH;