$ perl -Mstrict -Mwarnings -e 'package test; my $text = <<\TEST;
test@heredoc
TEST
sub test_print { print $text }
package main;
use parent -norequire => "test";
test::test_print()'
test@heredoc