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