use strict;
sub main{
my $configFile="/home/testuser/perl/config.properties";
#my $configFile="C:/Projects/perl/win_config.properties";
 
  
  my $rootLoc ="NA"; 
    if(-e $configFile){
                # Open file to read 
                if(open(DATAP, "<$configFile")){
                    # iterate through index file.
                    while(<DATAP>){
                        my @splitLine = split('=', $_);
                        if($splitLine[0] eq "rootLoc"){
                            chomp $splitLine[1];
                            $rootLoc = $splitLine[1];
                        }
                    }
                #close data file.
                close( DATAP );
                }
    } else{
         print "***Config file does not exist***\n";
    }
    print "\$rootLoc -> $rootLoc \n";
	
    if(!($rootLoc eq "NA")){
                
        my $srcDirectory = $rootLoc . "src/*";
        my $srcWorkDir = $rootLoc . "work/";
        my $procDir = $rootLoc."processed/";
        my $errDir = $rootLoc."error/";
        print  "$srcDirectory\n";
	print "$srcWorkDir\n";
	print "$procDir\n";
	print "$errDir\n";
		
	}
}
main();