#!/usr/bin/perl -w
use strict;

my $foo;
BEGIN { $foo = "bar" }
use License ($foo);

##</code><code>##

package License;
use strict;
my $foo;

sub import {
    shift;
    $foo = $_[0];
    print "foo = $foo\n";
}
1;

##</code><code>##

my $foo = "bar";
require License;
License->import($foo);