Greetings, have you considered Expect?

There is a Perl module for it (https://metacpan.org/pod/Expect).

open my $cmd, '|-', 'xyz' or die $!;
print {$cmd} "command1\n";
print {$cmd} "command2\n";
[download]

If you need to read the output of the command, too, see IPC::Open2.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;
use IO::Select;

my $pid = open3(\*WRITE, \*READ,\*ERROR,"bc");

my $sel = new IO::Select();

$sel->add(\*READ);
$sel->add(\*ERROR);

my($error,$answer)=('','');

while(1){

 print "Enter command\n";
 chomp(my $query = <STDIN>);
 
 #send query to bash
 print WRITE "$query\n";

 foreach my $h ($sel->can_read)
 {
   my $buf = '';
   if ($h eq \*ERROR)
   {
     sysread(ERROR,$buf,4096);
     if($buf){print "ERROR-> $buf\n"}
   }
   else
   {
     sysread(READ,$buf,4096);
     if($buf){print "$query = $buf\n"}
   }
 }
}

waitpid($pid, 1);
# It is important to waitpid on your child process,  
# otherwise zombies could be created.
[download]

#!/usr/bin/perl 
use warnings;
use strict;
use IPC::Open3;

$|=1;

my $pid=open3(\*IN,\*OUT, \*ERR , '/bin/bash');

# set \*ERR to 0 to send STDERR to STDOUT

my $cmd = 'date';

#send cmd to bash
print IN "$cmd\n";

my $result = <OUT>;
print $result;
[download]