in reply to Run an interactive shell command from Perl script

If sending commands to the standard input of the command works, you can 
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]

In Section Seekers of Perl Wisdom