#!/bin/bash

echo "in bash line(3) $LINENO"
LINE=$((LINENO + 6))

Fshell ()
{
	echo in func

	perler=$(cat <<'EOF'
say "in perl line ", __LINE__;

#### hier:  #line ($ARGV[0] + __LINE__ + 1)  !??
####line 15
say "in perl line ", __LINE__;

say "ARGV: $ARGV[0]   line: ", __LINE__, "  ARGV+line: ", $ARGV[0] + __LINE__; 

say "in perl line ", __LINE__;
EOF
)
	echo "in bash line(22): $LINENO"

	perl -E "$perler" $LINE
}