sub GetInfDataFiles {
    my ($path) = @_;
    my ($currpath, $age, $filea, $fileb, @allfiles, @list);

    $currpath = cwd();
    chdir $path;

    $age = -7;                                                


    @allfiles = `find .. -name "r*" -type f -mtime $age`;
    chomp( @allfiles );
    foreach (@allfiles) {
       chomp();                                               
       s/\.\///;                                              
    }

    
    @list = sort { (-M "$path/$b") <=> (-M "$path/$a") } @allfiles;

    chdir $currpath;
print ( "@list" );
    return @list;
} # GetInfDataFiles()