perl -e 'package test;$text=q(test@heredoc);print "$text\n"'