my $Widget;
    use My::Widget::Module( Factory=>\$Widget );

    my $dumper;
    use Devel::Peek( { Dump=>\&DumpSV } );
    use Data::Dumper( { Dump=>\&Dumper } );
    use My::Module( { Dump=>\$dumper } );

    my $flange= $Widget->new();
    $dumper->( $flange );
    Dumper( $flange );