*OldPrintFooter = *PrintFooter;
*PrintFooter = *NewPrintFooter;

sub NewPrintFooter {
  OldPrintFooter(@_);
  print "Debug Info: $DebugInfo";
}