Select Code to Download

#!/usr/bin/perl
use warnings;
...
    my $o = $builder->build(%DATA);
    say join ', ', map $o->$_, qw( id name job );
}