This is not a Perl issue. You need to read the documentation on your router and see if it supports url blocking or filtering. If it does, then you could write a Perl program to read the logs from the router and keep the blocked URL list up to date....