open( my $splay, "|-", "splay @args" ) or die "Couldn't start splay: $!";

#  Now just print command line strings to the $splay file handle...

sleep 10;
print $splay "STOP\n";   # (just guessing what sort of command you would send)