$SIG{'__WARN__'} = sub { die $_[0] };
rmtree("/tmp/tempdir",0,1);
$SIG{'__WARN__'} = 'DEFAULT';