Select Code to Download

use strict;
use Config;
use vars qw(%Config);
print "My default pager is $Config{pager}\n";

sub colorize {
  # Autoload here
...
    return $escape_code;
  }
}

  my ($case, $data) =(split /\s/, $input, 2;
  $case = lc($case);
...
  else {
    do_default($input);
  }

@cases = [
  # etc
...
  },
  # etc
};