$data = get_input_from_program_a();
$chopped = chop($data);
if ($chopped ne $/) {
   die "Program A is acting up";
}