#!/usr/bin/perl -w
#reminder.plx
use strict;
use Data::Dumper;

$/ = "#-";

open(INFILE, "/foo/reminder.txt") or die "Can't open reminders.txt: $!";
my @reminders = <INFILE>;
my $random = rand(@reminders);
my $reminder = $reminders[$random];
$reminder =~ s/\d\. //g;

chomp $reminder;

my $pid; # From here on down is the part I don't like, although it does do what I want it to do.

defined ($pid = fork()) or die $!;
if ($pid==0)
{

$pid and last;
exec ("/usr/bin/zenity --display=:0.0 --info --title='Reminder' --text='$reminder' &") or die "Something went wrong:$!";
}
my $retval;
sleep 100;
$pid++;
kill 15, $pid;