use warnings;
use strict;
use Socket;
use IO::Handle;
use Data::Dumper;

socketpair(WORKER_SOCKET, GUI_SOCKET, AF_UNIX, SOCK_STREAM, PF_UNSPEC) || die "socketpair: $!";
WORKER_SOCKET->autoflush(1);
GUI_SOCKET->autoflush(1);

if (my $pid = fork()) {
    close GUI_SOCKET;
    
    my $line = <WORKER_SOCKET>;
    if ($line =~ /^EXECUTE:(.*)$/)
    {
        # my $fx = "extracted function name";
        # my @args = "extracted args"
        &{\&{$fx}}(@args);
    }
}
else
{
    die "cannot fork: $!" unless defined $pid;
    close WORKER_SOCKET;
    
    # redirect the STDOUT of the WORKER script to GUI (and main BacnetTool
    # communication) process.
    STDOUT->autoflush(1);

    my $a = 'baz';
    my @b = qw(foo bar);
    my $c = \@b;
    
    print GUI_SOCKET "EXECUTE:doit($a, @b, $c)\n";
}

sub doit {
    my @q = @_;
    print "\nDoing it " . Dumper(\@q);
}