#!/usr/bin/perl -w
&one;

&two;

sub one {

use Cwd;

my $dir ="C:\\Image_Repository";

#print "$dir\n";

opendir(DIR,"+<$dir") or "die $!\n";

my @dir = readdir DIR;

#$lines=@dir;

delete $dir[-1];

print "$lines\n";

foreach my $item (@dir)

{
  
  print "$item\n";
 
}
  closedir DIR;

}

sub two {

use Cwd;

my $dir1 ="C:\\Image_Repository\\BG_Images";

#print "$dir1\n";

opendir(D,"+<$dir1") or "die $!\n";

my @dire = readdir D;

#$lines=@dire;

delete $dire[-1];

#print "$lines\n";

foreach my $item (@dire)

{

  

  #print "$item\n";

  $dir2="C:\\Image_Repository\\BG_Images\\$item";

  print $dir2;

  opendir(D1,"+<$dir2") or die " $!\n";

  my @files=readdir D1;

  #print "@files\n";  

  foreach $one (@files)

  {

    $one="reference_".$one;

    print "$one\n";

    #rename $one,Reference_.$one;

  } 

}

  closedir DIR;

}