LWP::UserAgent

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use LWP::UserAgent;
   
6. 
   
7. my @urls = ('','','','');
   
8. 
   
9. my $lwp = LWP::UserAgent->new();
   
10. foreach my $url(@urls){
    
11.         my $response = $lwp->get($url);
    
12.         my $status = $response->status_line();
    
13.         print " $url\t$status\n";
    
14. }
    
15. 
    
16. print "\n Press Enter key to close me ...\7";
    
17. ;
    
18. exit;