use strict;
use warnings;
use File::Find;

my @directories = qw|'http://127.0.0.2/'|;

find(sub {print $_,"\n" },@directories);
print "Content-type: text/html\n\n";      	        	
print @directories;
exit;