my $baz = 'interpolated';

print <<__EOI__;
Double quoted or unquoted
$baz
foo\\bar
__EOI__

print("\n");

print <<'__EOI__';
Single quoted
$baz
foo\\bar
__EOI__