# file foo
our $foo = 'hello world!';

##</code><code>##

#!/usr/bin/perl
use strict;
$\ = "\n";
print "no \$foo" unless defined $main::{foo};
require 'foo'; # or do 'foo'

my $first  = <<'EOH';
print "\$foo defined" if defined $main::{foo};
EOH
eval $first;

my $second = <<'EOH';
print $main::foo;
EOH
eval $second;
__END__
no $foo
$foo defined
hello world!

##</code><code>##

#!/usr/bin/perl
use strict;
$\ = "\n";
print "no \$foo" unless defined $main::{foo};
require 'foo'; # or do 'foo'
print $main::foo;