Select Code to Download

use 5.010;
use strict qw(vars subs);
...
my $obj = bless({}, "Foo[]");

$obj->hello;