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"); } }