Select Code to Download

#!/usr/bin/env perl    

...

my $foo = Foo->new( { foo => 1, bar => 2, baz => 3 } );
$foo->show_properties;