#!perl #
# open(LU1,">>$ARGV[0]"); open(LU2,"<$ARGV[1]"); print LU1 ; close(LU1) || die "Error"; close(LU2) || die "Error"; # 1; #