#!/usr/bin/perl 

use v5.030;
use Time::Piece;
use Log::Log4perl;

my $t  = localtime;
my $jd = $t->julian_day;
my $log_conf4 = '/home/fritz/Documents/perlmonks/conf_files/4.conf';
Log::Log4perl::init($log_conf4);    #info
my $logger = Log::Log4perl->get_logger();
$logger->info("Time is $t");
$logger->info("Julian day is $jd");
$logger->info("$0");



my @belt= qw/ Alnitak Alnilam Mintaka/;
$logger->info("@belt");

use IPC::System::Simple qw/systemx capturex/;
$logger->info("# systemx:"); 
systemx 'echo', 'Hello,', 'World!';
my $stdout = capturex 'echo', 'Hello,', 'World!';
$logger->info("# capturex: $stdout");

my @captured;
for(@belt){
my $stdout = capturex 'perl', '1.simbad.pl', "$_";
	push @captured, $stdout;
}
$logger->info("@captured");

#my $s1 = capturex 'set -eu'; # "set -eu" failed to start: "No such file or directory"
#$logger->info("s1 is $s1");
#my $s2 = capturex 'read repo'; # "read repo" failed to start: "No such file or directory"
#$logger->info("s2 is $s2");
my $group='perlmonks';
#my $repo = systemx 'read repo';
#$logger->info("s2 is $repo");
#my $command="git clone git/@gitlab.com:$group//$repo.git";
my $command="git clone something";
my $s3 = capturex "$command";
$logger->info("# capturex: $command");
$logger->info("# capturex output: $s3");

__END__