use lib '.'; use MyClass2; $bar = foo; print "$bar\n";