my @args;
if (!@ARGV || @ARGV==1 && $ARGV[0] eq '-')
  { @args = <STDIN> }
else
  { @args = @ARGV }