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