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