Select Code to Download

package Foo;
use warnings;
...
our @EXPORT = qw/foo $FOO/;
sub foo { print @_, "\n" }
our $FOO = 'bar';

use warnings;
use strict;
use Foo;
foo $FOO;

use warnings;
use strict;
...
    : q{ sub foo { print "Perl!\n"  } sub baz { print "Baz!\n" } } );
foo(); # will it print "Hello!" or "Perl!" ?
quz(); # will it die or won't it?