#!/usr/bin/perl

use strict;
use warnings;

my $sh_script = do { local $/; <DATA> };

my @args = ( 'option1' );

system(sh => (-c => $sh_script, '--', @args) ) == 0
    or die "$?/$!\n";

__DATA__
#!/bin/sh

echo "hello"
echo $1
echo "hi"

##</code><code>##

...

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

...