Simple Web Crawler in Perl

Initialize List_URLs
Add starting URL to list
While (List_URLs not finished)
     Pick URL
     If (HTTP)
         Fetch Page
         Parse Page
         Add URLs to List_URLs
     End	
End

#!/usr/bin/perl
use strict;	
use warnings;
#Now we will define variables, “links” is the list we are using. “cur_link” is the link of current page
# “var” is used to take in the page content.
my(@links,$cur_link,$var,$temp);
push(@links,"the-starting-website");
foreach $cur_link (@links)
{
        if($cur_link=~/^http/)
        {
	  # in the next few lines, we run the system command “curl” and retrieve the page content
                open my $fh,"curl $cur_link|";
                {
                        local $/;
                        $var=<$fh>;
                }
                close $fh;
                print "\nCurrently Scanning -- ".$cur_link;
	 # In the next line we extract all links in the current page
                my @p_links= $var=~/<a href=\"(.*?)\">/g;
                foreach $temp(@p_links)
                {       
                        if((!($temp=~/^http/))&&($temp=~/^\//))
                        {
			#This part of the code lets us correct internal addresses like “/index.aspx”
                                $temp=$cur_link.$temp;
                        }
		# In the next line we add the links to the main “links” list.
 push(@links,$temp);
                }
        }
}