package t::Sample::SWCError; use ToolSet::SWC; $var = 0; $var++; 1;