{
    package Foo;

    sub new {
        use Data::Dumper;
        print 'AH ', Dumper \@_;
        return bless {};
    }
}