gistfile1.txt

sub install_perl_apps_by_file ($$$) {
  my ($perl_command, $perl_version, $file_name) = @_;
  info_die "|$file_name| not found" unless -f $file_name;
  open my $file, '<', $file_name or info_die "$file_name: $!";
  while (<$file>) {
    tr/\x0D\x0A//d;
    if (/^#/) {
      #
    } elsif (/^(\S+)\s+(\S+)$/) {
      install_perl_app $perl_command, $perl_version, $1, name => $2;
    } elsif (/^(\S+)$/) {
      install_perl_app $perl_command, $perl_version, $1;
    }
  }
} # install_perl_apps_by_file


  } elsif ($command->{type} eq 'install-perl-apps-by-list') {
    my $file_name = "$RootDirName/config/perl/apps.txt";
    if (-f $file_name) {
      install_perl_apps_by_file $PerlCommand, $perl_version, $file_name;
    }