#!/usr/bin/env perl
# Last modified: Wed Jul 16 2025 12:52:52 PM -04:00 [EDT]
# Bash-functions.pl

use strict;
use v5.18;
use utf8;
use warnings;

local $ENV{'PERL5SHELL'} = q=/usr/bin/bash=;
local $ENV{'SHELL'}      = q=/usr/bin/bash=;
my $spawnFH;
my $elist;
my $cPid = open( $spawnFH, q[-|], qq[$ENV{'PERL5SHELL'} -login command builtin declare -p -F] )
    or die "Bad open from pipe: $!";
if ( $cPid ) {
    $elist = join qq[], grep {/^declare -f/} <$spawnFH>;
    close $spawnFH or warn qq/Bad close on process $cPid: $!|$?/;
}
print qq[Results from $cPid:\n], $elist, qq[\n];
__END__