Select Code to Download

my $thing = 3.5;
print $array[ $thing ];
my $test =  'Some text' . $thing;

sub ^asText {
   my $self = shift;
...
    my $self = shift; 
    return $self.Animal;
}