# Grab help and version info from executable.
my ($help_text, $version_text) = map {
# Grab help and version info from executable.
my ($help_text, $version_text) = map {
or die "$this_program: can't get `$_' info from $ARGV[0]\n"
} $help_option, $version_option;
or die "$this_program: can't get `$_' info from $ARGV[0]\n"
} $help_option, $version_option;
# <program> ({GNU,Free} <package>) <version>
# <program> - {GNU,Free} <package> <version>
#
# <program> ({GNU,Free} <package>) <version>
# <program> - {GNU,Free} <package> <version>
#
($_, $version_text) = split /\n+/, $version_text, 2;
($_, $version_text) = split /\n+/, $version_text, 2;