Select Code to Download

my ($status, $content, $type, $base, $length)
    = get_page($site);
...
        }
        return $status, $content, $type, $base, $length;
}

my %pi;
@%pi{qw(status content type base length))
...
             $response->base,
             commify(length($content));
}

my %pi;
get_page($site, \%pi);
...
                die "\nError: $status ($site)\n";
        }
}

my %pi;
get_page($site, \%pi);
...
        );
        return;
}