#!/usr/bin/perl -w
@branches = `ls -ld /rms/???/cool/data/HOLDING | awk -F" " '{print $NF}' | cut -f3 -d"/" | sort | uniq`;
#print "@branches\n";
foreach(@branches) {
    chomp $_;
    $var1 = "/rms/";
    $var2 = $_;
    $var3 = "/cool/data/TMP";
    @absdirpath = $var1.$var2.$var3;
    #print "@absdirpath\n";
    foreach(@absdirpath) {
    @eventlogs = `ls $_ |grep "COOL*`;
    #print "@eventlogs";
    foreach (@eventlogs) {
    @listing = `ls -lrt $_`;
    print "@listing";
    }
     #@grp = `ls -lrt | cut -d " " -f6`;
     #print "@grp\n";
            foreach $logs (@eventlogs) {
            $logs =~ s/^\s//;
            print "$logs\n";
            ($logname,$appname) = split(/\./,$logs);
            @apps = $appname;
            #print "@apps";
           }
       }
    }