echo -n ab | perl -e "print getc; exec 'perl', '-e', 'print getc'"

##</code><code>##

echo -n ab | perl -e "sysread(STDIN, \$b, 1); print \$b; exec 'perl', '-e', 'sysread(STDIN, \$b, 1); print \$b'"