BEGIN {
    my ($module, @imports) = qw(Foo::Bar foo bar baz);
    (my $file = "$module.pm") =~ s[::][/]g;
    require $file;
    $module->import(@imports);
}