Use Log::Any script-wide and support log level parameter

Change-Id: Iff68a533577663c1038cd0cad740e8ad45cb3255
diff --git a/t/script.t b/t/script.t
index 552f983..4254937 100644
--- a/t/script.t
+++ b/t/script.t
@@ -391,4 +391,14 @@
   ok($zip, 'found structure.xml');
 };
 
+
+subtest 'Test Log' => sub {
+  test_tei2korapxml(
+    tmp => 'script_out',
+    file => $file,
+    param => '-l=warn'
+  )->stderr_is('');
+};
+
+
 done_testing;