Select Code to Download

use strict;
use warnings;
...

--output:--
hello

goto &{"greet"};

{package Dog;

...
my $dog = Dog->new;
say $dog->name;
say $dog->color;