sub statusPrint {
# code to update status
  print shift;
}

sub longprocess {
   my &status = shift;
   #do stuff
   &status("10%");

   #more stuff

   &status("20%");
}

call it with:
longprocess (\&statusPrint);