sub debug { print shift if ($debug); }