$ perl -Mstrict -Mwarnings -e 'package test; my $text = <<\TEST;
test@heredoc 
TEST
print $text'
test@heredoc