$perl >> -lnf $lnf  would work? Do u have any idea?

set arg=$argv[1]
  shift argv
  switch ($arg)
   case "-alf":
      set dir = `echo "$argv[1]"`
    breaksw
    case "-cell":
      set cell = `echo "$argv[1]"`
      set perl = ${WARD}/bin/lnf2alf.pl -cell $cell
    breaksw
    case "-o":
      set out = `echo "$argv[1]"`
      $perl >> -o $out
    breaksw
    case "-lnf":
      set lnf = `echo "$argv[1]"`
      $perl >> -lnf $lnf
    breaksw
      case -h:
   case --help:
    default:
    goto help
    breaksw
  endsw
  shift argv
end

${WARD}/bin/lnf2alf.pl -cell $cell