Anonymous

#!/usr/bin/perl -w
#
# mass vistor thingy
#

use strict;
use LWP::UserAgent;
use HTTP::Headers;
use Getopt::Long;

my ( $site, $count, $http, $data, $i );
my $options = { s => \$site, c => \$count };
GetOptions( $options, "s=s", "c=s" );

&usage unless $site;

for ( $i = 0; $i <= $count; $i++)
{
	$http = LWP::UserAgent->new() or die;
	$http->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/2006/0321 Firefox/2.0a1");
	$data = $http->get($site);
	
	if ( $data->is_success)
	{
		print "visited " . $site . "\n";
	}
}

sub usage
{
	print "website vistor thingy\n";
	print "usage perl $0 -s\n\n";
	print "  -s\t\twebsite to visit\n";
	exit;
}