die handler

Hi ,

I have this in my code :

local $SIG{__DIE__} = \&die_handler;

and then

sub die_handler {

my (@vars)=@_;

print STDERR "\nfirst : " . $vars[0];

print STDERR "\nsecond : " . $vars[1];

}

if i give :

die ('goo','foo','bar');

Then I get the output :

first : goofoobar at out.pl line 233.

second :

I want to have the three arguments in an array.

can somebody tell what am I doing wrong ?

Thanks

Pradeep



_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com

• die handler by Pradeep Sethi