Select Code to Download

use strict;
use vars qw($program);

$program={};

sub main {
  my $program;
...
  print_functions($program);
  do_other_stuff($program);
}

sub print_functions {
  my $program=shift; # this is not needed if $program is
...

  # and now you can just use $functions to access the data
}