#!/usr/local/bin/perl

use warnings;
use strict;
use File::Find::Rule;
use Date::Calc qw(Delta_Days);
use File::Path qw(remove_tree);


my $path="D:/FSA/Recordings/";

my @folders = File::Find::Rule->directory->in( $path );

foreach my $i (@folders){
	if ($i =~ /[0-9]{4}/)
        {
        my $folder = substr($i,-4,4);
        my $month = substr($folder,0,2);
        my $year = substr($folder,2,2);
        my $folderyear = "1" . $year;
        my @folderdate = ($folderyear, $month, 01);
        my($curday, $curmonth, $curyear) = (localtime)[3,4,5];
        my @curdate = ($curyear, $curmonth + 1, $curday);
        my $difference = Delta_Days(@folderdate, @curdate);
        if ($difference > 93) {remove_tree $i;}
        };
        }