package T;

use strict;

my $oldwarn;
sub import
{
    $oldwarn = $SIG{__WARN__};
    $SIG{__WARN__} = \&callstack;
}

sub callstack
{
    &$oldwarn if $oldwarn;
    require Carp;
    Carp::confess(@_);
}

1;