#!/usr/bin/perl -w Hitter use LWP::Simple; get('http://www.cnn.com') for (1..1000);