#!perl -w
{
	local $^W = 0;
}