$SIG{__DIE__} = sub { print "$0: $_\n" for @_ }; die("a", "bunch", "of", "arguments"); __END__ output - -: abunchofarguments at - line 2. abunchofarguments at - line 2.