if(  @ARGV  &&  $ARGV[0] eq "-all"  ) {
    if(  0 < @ARGV  &&  "-all" eq $ARGV[0]  ) {