if ( @ARGV == 0 and -t ) {
    die "Usage: $0  list.file   or some_command | $0\n";