# HG changeset patch
# User anatofuz
# Date 1541402685 -32400
# Node ID eda9948f5e5aef9cb9ecec35b9e61be62b1f4270
# Parent  8911efdfcc503f2ff2c7ff10af2d75d6bb1f5fd7
add usage for perl script

diff -r 8911efdfcc50 -r eda9948f5e5a logs2.pl
--- a/logs2.pl	Sun Nov 04 23:50:55 2018 +0900
+++ b/logs2.pl	Mon Nov 05 16:24:45 2018 +0900
@@ -1,12 +1,14 @@
 use strict;
 use warnings;
 
-my $originlog = shift;
-my $cbclog = shift;
+my $originlog = shift or die "use originlog cbclog";
+my $cbclog = shift or die "use originlog cbclog";
 
 open my $ofh, '<', $originlog;
 open my $cfh, '<', $cbclog;
 
+print "Originlog:CbClog\n";
+
 while (1){
   my $orig_line;
   do  {