package X;
use strict;
use Y;

my $y = Y->new;
1;