my $text = "Some text";
    print <<EOT;
    This does interpolate.
    Look: $text.
    EOT
    print <<'EOT';
    This does not interpolate.
    Look: $text.
    EOT
    __END__
    This does interpolate.
    Look: Some text.
    This does not interpolate.
    Look: $text.