# demo.pl
use strict;
use warnings;

use Foo;

my $foo = Foo->new();

$foo->bar = 1;
print $foo->bar, "\n";

$foo->bar += 2;
print $foo->bar, "\n";

$foo->bar( 5 );
print $foo->bar, "\n";

print $foo->baz = 8, "\n";
print $foo->baz *= 11, "\n";
print $foo->baz( 100 ), "\n";

__END__