#!/usr/bin/perl -w

BEGIN { eval 'require B' . 'ar'; }
eval 'require B' . 'az';
use Foo;