diff --git a/lib/Redmine/CLI.pm b/lib/Redmine/CLI.pm
index d3b92f056c9ed5b2e7ef648c4b4a08dd9d6ec822..e5577b07db64beb88c2ed5f71dd241fc3169c62b 100644
--- a/lib/Redmine/CLI.pm
+++ b/lib/Redmine/CLI.pm
@@ -1,4 +1,8 @@
 
+=head3 Environment variables
+
+  REDMINE ... specify stanza of selected Redmine instance
+
 =pod
 
 =head1 NAME
@@ -60,6 +64,10 @@ EOPOD
   'env' => <<EOPOD,
 =head2 Enivironment
 
+=head3 Environment variables
+
+  REDMINE ... specify stanza of selected Redmine instance
+
 =head3 default attributes
 
   project_name
diff --git a/red.pl b/red.pl
index badc0569aa5425cd3bf0208cccba5d7be84ea1c9..880c3f6d07b12f349ff2bb351f1306b50872baef 100755
--- a/red.pl
+++ b/red.pl
@@ -9,7 +9,7 @@ $Data::Dumper::Indent= 1;
 
 use Redmine::CLI;
 
-  my $rm_cli= new Redmine::CLI();
+  my $rm_cli= new Redmine::CLI(cfg_stanza => $ENV{'REDMINE'});
   # print __LINE__, " rm_cli: ", Dumper ($rm_cli);
 
   $rm_cli->parse_args(@ARGV);