Select Code to Download

#!/usr/bin/env perl
use warnings;
...
my $dom = Mojo::DOM->new($html);
my $text = $dom->find('footer')->last->previous->text;
print $text,"\n";  # prints "indeed I am"