#Dynamically choose betten Foo and Bar
my $type = 'foo';
if ($type eq 'foo') {
    eval "use Foo";
}
else {
    eval "use Bar";
}