#! /usr/local/bin/perl

####################################################
#BooRandomImageViewer v1.01 / this program is free.#
#(C) BooBooClub 2002-2005                          #
####################################################

#set data

$dat = './path.dat';



#read
open (DAT,"$dat");
@dats = <DAT>;
close (DAT);
$i = @dats;
srand(time|$$);
$to = int(rand("$i"));
$idat = $dats[$to];
chomp $idat;


&view;

sub view{
	open (IMG,"$idat");
	binmode(IMG);
	print "Content-type: image/gif\n\n";
	binmode(STDOUT);
	while(<IMG>){
		print;
	}
	close(IMG);	
	exit 0;
}
exit 0;