Select Code to Download

printurls(\%URLS,$title);
sub printurls {
    my($urls,$title) = @_;
    my %URLS = %{$url};
}

printurls(%URLS,$title);
sub printurls(%$) {
    my($urls,$title) = @_;
    my %URLS = %{$urls};
}