#!/usr/local/bin/perl

$datafile = '/usr/local/apache/htdocs/include/banner/'.'banner22.dat';
if( -f $datafile){
	open(IN,"$datafile");
	@DATA = <IN>;
	close(IN);
	srand;
	$line=int(rand(@DATA));
	print "Content-type: text/html\n\n";
	print $DATA[$line];
}
exit;