$SIG{ALRM} = sub { die q{timeout} };
      
URL: foreach my $url ( @urls ) 
{    
    alarm( 2 ); # amount of time allowed for call.
     
    eval    
    {
        my $page = get( $url ); # LWP::Simple call
    };
     
    if ( $@ =~ /^timeout/ )
    {
        print qq{Skipping this one, timed out.\n};
     
        next URL;
    }

    # Do something with successful call.

}