tlug: When Perl can't open it can it mail it?

[Darren Cook <darren@example.com>]

This is from a PERL4 script that writes to a log file:

---------
unless (open(FOUT,">>$file")) {
	#Report error here
	return;
	}
#Write here
close(FOUT);
-----------

Is it possible to have it write the information to an email when it can't
open the file? Eg. something like this:

-----------
unless (open(FOUT,">>$file")) {
	open(FOUT,"|sendmail darren");
	print FOUT "Subject: Perl script couldn't open $file \n\n";
	#Fall through
	}
#Write here
close(FOUT);
-----------

Are there any security issues I need to be aware of here?

Darren

---------------------------------------------------------------
Next Meeting: 10 October, 12:30 Tokyo Station Yaesu central gate
Featuring the IMASY Eng. Team on "IPv6 - The Next Generation IP"
Next Nomikai: 20 November, 19:30  Tengu TokyoEkiMae 03-3275-3691
---------------------------------------------------------------
Sponsor: PHT, makers of TurboLinux http://www.pht.co.jp