#!/usr/bin/env perl
use 5.12.0; 
use warnings; 
use LWP::Simple; 
use Data::Dumper; 

say Dumper({ map { $_ => eval { get 'http://example.com/'.$_ }, } 0..1000 });