something is killing my perl script

I have a program that I wrote which take input from a pipe and then distributes to certain log files.

What happens is that for no particular reason that I can find, the program dies.

What do I put in to find out what killed it or what it died from?

#!/usr/bin/perl

open (KERNFIFO, "cat /dev/log.fifo |");

while ( <KERNFIFO> ) {
	if ( /fbd_ioctl/ ){
		#print "Skipping line... $_";
	}
	elsif ( /\bslot/ ) {
		$cards = $_;
		`echo "$cards" >> /var/log/cards/messages`;
	}
	else {	
	 	$line = $_;
		`echo "$line" >> /var/log/messages`;
	}
}





Rick Parker
Motorola Inc. / Winphoria Division
3 Highwood Drive, WEST
Tewksbury, MA 01876
(978) 805-5686
[email protected]



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.690 / Virus Database: 451 - Release Date: 5/22/2004