use Data::Dumper qw(Dumper);

$SIG{__WARN__} = sub { &handle_it(@_); warn @_ };
$SIG{__DIE__}  = sub { &handle_it(@_);  die @_ };

sub handle_it {
  print Dumper \@_;
}