sub threeYrExpiration {
  my $abs_filename = $_[0];  
  
	my $unlinkStatus = unlink("$abs_filename");
	if ($unlinkStatus == 1) {
		$unlinkCountTotal++;        
		$abs_filename =~ s#.*WORKAREA\/[^\/]*##;  
		push (@deleted_files, $abs_filename);                   
		$task->AddFile("$abs_filename", "Deleted by content expiration report"); 
		$logger->info("File to be deleted added to job: $abs_filename"); 
	} else {
		$logger->info("File to be deleted \"$abs_filename\" failed. Received $unlinkStatus instead of 1.");
		$task->CallBack(1, "Error Deleting expired file");
	}
}

##</code><code>##

sub file_handler {
  my ($abs_filename) = @_;


	if ((($current_mth == 1) && ($last_day_current_mth == 31)) {		
		threeYrExpiration($abs_filename);
	} else {
		sevenYrExpiration($abs_filename);
	}


} # End of sub file_handler



sub threeYrExpiration {
  my $abs_filename = $_[0];  
  
	my $unlinkStatus = unlink("$abs_filename");
	if ($unlinkStatus == 1) {
		$unlinkCountTotal++;        
		$abs_filename =~ s#.*WORKAREA\/[^\/]*##;  
		push (@deleted_files, $abs_filename);                   
		$task->AddFile("$abs_filename", "Deleted by content expiration report"); 
		$logger->info("File to be deleted added to job: $abs_filename"); 
	} else {
		$logger->info("File to be deleted \"$abs_filename\" failed. Received $unlinkStatus instead of 1.");
		$task->CallBack(1, "Error Deleting expired file");
	}
}

sub sevenYrExpiration  {
	...
	...
}