Select Code to Download

my $capture = capturex "bash","2.create.bash", "@ARGV";
$logger->info("capx: $capture");

fritz@laptop:~/Documents/gitlab1$ ./4.wrap.pl 2.millcreek.pl
Time is Thu Mar  2 01:43:55 2023 
...
3.millcreek.pl
-rwxrwxr-x 1 fritz fritz 11K Mar  2 01:43 3.millcreek.pl 
fritz@laptop:~/Documents/gitlab1$

#!/usr/bin/perl 

...
$tempfile->spew("@matching");  # not atomic
__END__

fritz@laptop:~/Documents/gitlab1$ ./1.wrap.pl 3.git.sh
line  matched 

...

cardinality: 13
fritz@laptop:~/Documents/gitlab1$