$SIG{__WARN__} = sub{
	print "There is no: $_[0]\n";
}