my $class_name = 'Foo' . '::' . 'Bar';

eval "require $class_name";
if ($@) {
   warn $@;
}

$class_name =~ s|::|/|g;
eval {
    require "$class_name.pm";
};
if ($@) {
   warn $@;
}