die "Usage: $0 inputfile outdir\n" unless scalar @ARGV == 2;
  #I prefer "scalar @LIST", some prefer $#LIST, 
  #but remember the difference
   my ($inputfile, $outdir) = @ARGV;