#!/bin/perl
$filename = '$HOME/eye_reminder';
$sleeptime = 60*60;		# 60 minutes sleeptime
$bitmap = '$HOME/public_html/eye.xbm';

while(1){
    $pid = fork;
    if($pid == 0){		# if child
	exec("/usr/bin/X11/xdialog -geometry +450+400 -p $bitmap -f $filename -fg red -bg lightgrey")	# start the dialog box
	}
    else {			# if parent
	wait;			# wait for the dialog box to finish
	sleep($sleeptime);	
    }
}