package License;
use strict;
my $foo;

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