my ($url, @list) = @_; #### my $sub = shift;