printing die error ina file

[Sonika Sachdeva]

Hi

I need to run my perl program from Windows scheduler.I have printed most of
the errors in a Log file, except for die " " errors.
How do I log die errors and exit nicely.
one example is ......

my $result=open(VF, ">>$SRCDIR\\$Verbosefile") ;
unless($result) {print "Error: can't append to $Verbosefile: $!\n"; exit;}

do i write this for all the 20-25 die errors i have ? or is there a simpler
way to do so.......

thanx,