Select Code to Download

Select or download this
sudo apt-get install libpng-dev

$ ./1.mai.pl 

                        enable1.txt
                      
Yay

Select or download this

#!/usr/bin/perl

use strict;
...
}

sleep 1;

Select or download this

curl 'https://www.googleapis.com/storage/v1/b/google-code-archive/o/v2
+%2Fcode.google.com%2Fdotnetperls-controls%2Fproject.json?alt=media&st
+ripTrailingSlashes=false' -H 'User-Agent: Mozilla/5.0 (X11; Ubuntu; L
+inux x86_64; rv:74.0) Gecko/20100101 Firefox/74.0' -H 'Accept: applic
+ation/json, text/plain, */*' -H 'Accept-Language: en-US,en;q=0.5' --c
+ompressed -H 'Origin: https://code.google.com' -H 'Connection: keep-a
+live' -H 'Referer: https://code.google.com/archive/p/dotnetperls-cont
+rols/downloads' -H 'Cache-Control: max-age=0' -H 'TE: Trailers'

Select or download this

$ ./2.curl.pl | tail -5
zymotic
zymurgies
...

__END__
$

Select or download this

$ cat /etc/2.log.conf
######################################################################
+#########
#                              Log::Log4perl Conf                     
+        #
...
log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayou
+t
log4perl.appender.LOG1.layout.ConversionPattern = %d %p %m %n
$

Select or download this

#!/usr/bin/perl
use Log::Log4perl;
# Initialize Logger
...
    $logger->error("there was an error: $?");
}
$logger->info("===== after system call");

Select or download this

else {
   print "Error: " . $mech->status . "\n";
}

Select or download this

else {
   $logger->error("there was an error: $mech->status" . "\n") ;
}