Select Code to Download

my $type="w";
&print_summary;
...
        print "hello\n";
    }
}

sub print_summary
{
...
}
my $type="w";
&print_summary;