#!/usr/bin/perl -w

	print "Content-type: text/plain\n\n";

	#$file = "/usr/local/etc/httpd/htdocs/wirefire/data/data2";
	$file = "../../wirefire/data/data2";
	open(INFO, $file);
	@lines = <INFO>;
	close(INFO);
	foreach $line (@lines)
		{
		print "$line";
		}
print "done";