#! /usr/bin/perl -w
use strict;

use AA::BB;

eval { die AA::BB->new; } or print "Caught exception $@";