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

my $limit = 180;
find (\&CheckFile, "/my.co.uk/video/testdelete/");

sub CheckFile {
	$File::Find::dir;
		my  $age = -M;

		if (  -f $File::Find::dir
      && $age > $limit
   ) {		system ( 'rmdir','-r', "$File::Find::dir") or die "delete failed: $!";
       } 

else {               print $File::Find::name;
	print  " is ",int($age)," days old\n";
       }}