use strict;
use warnings;
use File::Find; 

my	$in_dir="M:\\DB_Backups";
my	$num_days=30;
my	$rc="";

sub select_files {
	my $input_file=$_;
	if (-d $input_file ) {
		return;
	}
	my $full_path=$File::Find::name;
}

$File::Find::prune=0;
find(\&select_files, $in_dir);