sub links {
    my ($url, @list) = @_;
    my @return = map ("$url/$_\n") @list;
    return @return;
}