fritz@laptop:~/Documents$ ./1.2023.pl 
./1.2023.pl 
Name	Right Ascension		Declination 
Jupiter	0.179353375287228	0.0559955210059931 
Venus	0.0955771968036561	0.0254452716279536 
Moon	0.655478796651881	0.262724424143006 
Aldeb	1.20392811802569	0.288139315093836  
Time is Fri Feb 24 20:32:39 2023 
Julian day is 2460000.64767361 
fritz@laptop:~/Documents$ 
##</code><code>##

#!/usr/bin/perl 

use Time::Piece;
use Astro::Coord::ECI::Utils 'deg2rad';
use Astro::Coords;

my $log_conf4 = '/home/fritz/Documents/perlmonks/conf_files/3.conf';
Log::Log4perl::init($log_conf4);    #info
my $logger = Log::Log4perl->get_logger();
$logger->info("$0");

$logger->info("Name\tRight Ascension\t\tDeclination");

for my $name (qw/Jupiter Venus Moon/) {

  my $planet2 = Astro::Coords->new( planet => $name );

  $planet2->datetime( Time::Piece->new );

  my $ra  = $planet2->ra( format => q/rad/ );
  my $dec = $planet2->dec( format => q/rad/ );

  $logger->info("$name\t$ra\t$dec");

}

my $aldeb_ra_degrees          = 68.98;
my $aldeb_ra_radians          = deg2rad($aldeb_ra_degrees);
my $aldeb_declination_degrees = 16.509166666667;
my $aldeb_dec_radians         = deg2rad($aldeb_declination_degrees);
$logger->info("Aldeb\t$aldeb_ra_radians\t$aldeb_dec_radians ");
my $t  = localtime;
my $jd = $t->julian_day;

$logger->info("Time is $t");
$logger->info("Julian day is $jd");

__END__ 


##</code><code>##

###############################################################################
#                              Log::Log4perl Conf                             #
###############################################################################
log4perl.rootLogger              = INFO, LOG1, SCREEN
log4perl.appender.SCREEN         = Log::Log4perl::Appender::Screen
log4perl.appender.SCREEN.stderr  = 0
log4perl.appender.SCREEN.layout  = Log::Log4perl::Layout::PatternLayout
log4perl.appender.SCREEN.layout.ConversionPattern = %m %n
log4perl.appender.LOG1           = Log::Log4perl::Appender::File
log4perl.appender.LOG1.filename  = /home/hogan/Documents/hogan/logs/4.log4perl.txt
log4perl.appender.LOG1.mode      = append
log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LOG1.layout.ConversionPattern = %d %p %m %n
##</code><code>##

fritz@laptop:~/Documents/gitlab1$ ./2.2023.pl 
Time is Sat Feb 25 17:09:31 2023 
Julian day is 2460001.5066088 
./2.2023.pl 
Alnitak Alnilam Mintaka 
# systemx: 
Hello, World!
# capturex: Hello, World!
 
$VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 40 45.52666  -01 56 33.2649 (Opt ) A [5.19 2.29 90] 2007A&A...474..653V';
 $VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 36 12.81335  -01 12 06.9089 (Opt ) A [3.69 1.67 90] 2007A&A...474..653V';
 $VAR1 = 'Coordinates(ICRS,ep=J2000,eq=2000): 05 32 00.40009  -00 17 56.7424 (Opt ) A [4.92 2.38 90] 2007A&A...474..653V';
 
"git clone something" failed to start: "No such file or directory" at ./2.2023.pl line 43.
fritz@laptop:~/Documents/gitlab1$ git clone something
fatal: repository 'something' does not exist
fritz@laptop:~/Documents/gitlab1$ 

##</code><code>##

#!/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__ 

##</code><code>##


my $command="./5.git.sh";
my $s3 = capturex "$command";
$logger->info("# capturex: $command");
$logger->info("# capturex output: $s3");

##</code><code>##

#!/bin/bash
pwd >README.md
echo -n "Please enter email: "
read email
git config --global user.email $email 
...
git push -u origin master 
git push -u master origin