sub main {
  my $program;
  ...
  $program={};
  parse_program("source.c", $program);
  print_functions($program);
  do_other_stuff($program);
}