Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;

      7 use subs qw(
      8 error_exit
...
     15 print_info
     16 print_verbose
     17 );

sub error_exit;
sub usage;
...
sub print_notok;
sub print_info;
sub print_verbose;

     21 @Default_Tools_List = (
     22    [ 'gzip'        ,'app', '' , 'generic_check' ],
...
     41 
     42 
     43 $Tools_Hash = \@Default_Tools_List ;

my $Tools_Hash = [
   [ 'gzip'        ,'app', '' , \&generic_check ],
...
   [ 'df'          ,'app', '' , \&generic_check ],
   [ 'Carp'        ,'perlm', 'Perl Module - Carp', \&perl_module_check
+ ],
   ];

     59 %precheck_stuff = ($KSH, $PERL);

...
    223         $ret = 1 if($ret == 0);
    224     }
    225     }

     93     my @more_paths = split(/\s+/, $more_paths);

...
    138     my @exclude_checks = split(/\s+/, $exclude_list);

    146     my @implicit_checks = split(/\s+/, $implicit_list);

     92     chomp($more_paths);

...
    137     chomp($exclude_list);

    145     chomp($implicit_list);

    115        push(@{$Tools_Hash}, [ $elem, 'app', $elem, 'generic_ch
+eck']);

    131        push(@{$Tools_Hash}, [ $elem, 'app', $elem, 'generic_ch
+eck']);

    154         push(@{$Tools_Hash}, [ $elem, 'app', $elem, 'generic_c
+heck']);

    175 foreach $component ( @{$Tools_Hash} ) {
    176      my $entity = $component->[0] ;  # first thing is the enti
+ty to check.
...
    179      $ret = \&$check_function($entity, splice(@{$component},1,
+-1)); #rest of the inbetween things are args to function.
    180      }
    181 }

for my $component ( @$Tools_Hash ) {
    my $entity = shift @$component;  # first thing is the entity to ch
+eck.
...
        my $ret = $check_function->( $entity, @$component ); #rest of 
+the inbetween things are args to function.
    }
}

    240     print_info sprintf "%-${cf_flen}s", $show_user ;

    282     print_info  sprintf "%-${cf_flen}s", $show_user ;

print_info sprintf '%-*s', $cf_flen, $show_user ;