sub import
{
    my $caller = caller;
    *{$caller . '::FUNCTION1'} = \&FUNCTION1;
    *{$caller . '::SCALAR1'}   = \$SCALAR1;
}