$dir = '/current/directory/';
$newdir = '/new/directory/';

find(\&movefiles, $dir);

sub movefiles 
{
$move_file       = $File::Find::name;
$move_curDir  = $File::Find::dir;
$move_curFile = $_;
$move_basedir = dirname($move_curDir);

$file_time = (stat($move_file))[9];
$current_time = time;
$time_dif = $current_time - $file_time;

if ($time_dif <= 300) 
{
	#Ignore
} 
else 
{		
	#Move

my $new_file = $move_file;
$new_file =~ s/old_folder/new_folder/;

copy("$move_file","$new_file") or die "Copy failed: $!";