#/bin/ksh

fruit=basket

pltst() {
   /usr/bin/perl <<- _perl
	sub first {
    $tombstone = 'pizza'; <--- I want to assign this value. HOW?? 
	print "Your ",index($fruit,'k')," and ",oct('65')," other things go here. $fruit , $tombstone \n";	
	}
first
	_perl
} # end of shell function pltst

mytree=`pltst`

echo mytree - $mytree 

exit 0