#!/usr/bin/perl
#
# try an error for a file list
#
# version 0.2
# perl fcrawl.pl <www.target.org>
#
# (c) by trilobit@packetlevel.ch
#
my @LISTE = ( "/index.html", "/index.htm", 
 "/etc/passwd", "/robots.txt" ); 

foreach $tmp1(@LISTE) {
	@RESULT = `curl -s -L $ARGV[0]$tmp1` ;
	print "+++   "."$ARGV[0]$tmp1\t\t---\t"."@RESULT[0]\n";
	}
exit<0>;