#!/usr/bin/perl 
use strict;
use warnings;  
use File::Find;

sub callback {

    my $file = $_;
    rename $file,"reference_$file" if -f $file

}

my $dir = 'C:/Image_Repository';

find (\&callback, $dir);