Look at HTTP::LinkExtor. There is example code in the pod which does exactly what you want.