Using Active Perl : how to load file and read every line?

[KMZack]

i have a list of url locate in text file called url.txt. I need to read every line then loop
any idea