#!/bin/sh

echo This is bash
i=12
echo $i

perl - $i <<'__HERE__'
my $i = shift;
print "This is perl\n";
print ++$i . "\n";
__HERE__

echo This is bash again
echo $i