...

open(my $sh_fh, '|-', sh => ('-s', '--', @args) )
    or die "$?/$!\n";
print $sh_fh $sh_script;
close($sh_fh);

...