my $perl; #code 
...
__DATA__

(ELisp...)