use lib '.';
use Foo::Bar;

use Data::Dumper;

my $o = Foo::Bar->new;

print STDERR Dumper($o);