#!/usr/bin/perl
use A;
my $test = A::B->new(test => 1);