ダミーの氏名

こちらのページから名前をいただくとよさそう。
http://www.namaejiten.com/h01/name01.html

use strict;
use warnings;
use Mojo::ByteStream 'b';
use Mojo::UserAgent;
                                                                                                             
my $ua = Mojo::UserAgent->new;

my $tx = $ua->get('gttp://www.namaejiten.com/h01/name01.html');

my $r = $tx->res->dom->at('table.rankingtable');
$r->find('tr')->each(
    sub {
        my $e = shift;
        print b($e->td->[1]->text)->decode('shift-jis')->encode;
    }
);