$create_date = stat($_)->ctime;
	if ($create_date < ($current_date - $set_time)) {
		if (unlink ($_)) {

			open(LOG, ">>$logfile") or warn "discarding logfile output\n";
			print LOG "FIle: $_ - has been deleted.\n";
			close (LOG) or warn "Can't close $logfile: $!";	

		} else {

			open(ERRLOG, ">>$errorlog") or warn "scrapping error output\n";
			eval { die "($!)"; };
			if ($@) { print ERRLOG "Cannot delete file $_ : $@!\n"; }
		}

	} else {

		open(LOG, ">>$logfile2") or warn "discarding logfile output\n";
		print LOG "The file $_ is newer than 30 days.\n";
		close(LOG) or warn "Can't close $logfile2: $!";
	}